
LA NOUVELLE HP: 
ENCORE PLUS PUISSANTE! 




sous la lorme dun micro ordmateur 
portable de la laille dun camel de 
note La HP-71B esi resolument 
orientee vers les applications scien- 
tifiques necessitant la realisation de 
caiculs complexes Ette combine un 
langage Basic el un mode 'Calcuia 
leur" (CALCMOO) qui en font une 
calcuiatrice sou pie et puissanle 
La HP-71B est largement equipee en 
memoire vive (RAM) et en memoire 
morte (ROM) Dans la version de ba- 
se, 17 5KRAMet 64 KROM.Iespace 
memoire alloue permet la creation et 
le s lockage dun volume contortabie 
d'informations ou de programmes 

EXTENSIONS 

La HP-71B est un systeme ouvert et 

extensible La memoire vive (RAM) 



peut eireeiendueparadfonclion de 
modules de 4K, mstalles dans un 
quelconque des 4 ports externes. 
jusqua concurrence de 16 K RAM 
(total 33 5 K RAM) 
Les modules de memoire morte 
(ROM) dun volume de 10K, contien- 
nenl des applications specifiques 
poor utilisateurs Lextension ROM 
peut altemdre 64K. pour chaque 
port 

Le clavier peut-etre entierement 
redetini. afin de personnaltser ou 
d adapter la machine a des logiciels 
parti culiers 

Un lecteur de cartes optionnel peut 
etre connecte a la HP-71B par I'm 
termediaire dun slot Ce lecteur de 
carte utilise des cartes magnetiques 
de 10 pouces. dune capacite de 
13K 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page mterieure) 



Un slot mtegre permet lutilisation de 
rmterface HP (HP ID qui conlient 
des routines d'entree-sortie assu- 
rant la liaison de la HPj71B avec 
divers peripnenques, a la vitesse de 
5K bytes par secondes (imprimante, 
table tracante. cassette digitale. 
interlace video, codeabarres, instru- 
ments de controle. etc ) 
Lmterface HP-IB, Bus d'exlension de 
HP aux normes IEEE488. RS232C et 
GPIO sont aussi accessibles sur la 
HP-71B. 

LANG AGES 

Le Basic implements dispose de 
plus de 240 instructions, dont des 
instructions specifiques de statisti- 
ques. caiculs Irigonometriques et ia 
compatibility avec le systeme de 
representation de nombres aux 
normes IEEE 

Ce '3asic otfre une gestion complete 
de 1'ecran, point par point, permet- 
tanl de redefinir les caracteres, une 
maintenance simple de plusieurs 
programmes en memoire. declara 
lion dynamique des variables, etc 
Le Basic peut etre complete par de 
nouvelles instructions 
Lhorloge integree donne acces a la 
date, meme si la machine est decon- 
nectee 

Le mode Calcul. (CALCMODE) est 
un mode non programmable per- 
mettant lutilisation de la HP-71B 
comme un calculateur puissant 
Le mode calcul code un controle des 
erreurs. un mode calcul pas a pas, 

Les variables et leur contenu peu 
vent etre echanges entre le Basic et 
ce CALCMODE En CALCMODE, il 
est possible de (aire executer de 
facon immediate des sous expres- 
sions mathematiques. telles queues 
sont ecntes, avec controle de paren 
theses et utilisation de fonctions ma 
thematiques predefines ou defmies 
par lutilisateur. 

Des logiciels scientifiques (maths. 
Finance, gestion, caiculs sur des 
courbes, etc .) devraient etre dispo 
nibles rapidement 
Des livres et des manuels de pro- 
grammes pour utilisateur sont 
actuellement disponibles afin den- 
Suite page 13 



ORDINAL 1 
SURTF1 



Une nouvelle emission de tele 
vision est nee depws quslques 
semaines Michel CHE VALET nous 
presente ORDINAL 1. le lundi a 
17 h i 5 sur la premiere chalne 
L'horaire est un peu bizarre, pour- 
quoi 17 h 45, beaucoup dentre 
nous sont encore soil au boulot 
soit en tram de rentrer chez eux 
Notre sport favon n'est-il pas en- 
core considere a sa juste valeur 
par les directions de chaines ? 
Faul-il etre un fanatiquue du HIP- 
HOP pour avoir droit a des horai- 
resplus normaux 'Leprogramme 
de remission du lundi 27 fevrier a 
lair interessanl Comment ap- 
prendre chez soi avec un micro- 
ordinateur un reportage sur les 
logiciels educatifs'tet une rubnque 
mtitulee Informatique ? un jeu 
d'enlant ' A vos cassettes de 
magnetoscopes en attendant 



EDITO 



SAUVETAGE et 
SAINT BERNARD 



Ces enormes toutous que sont les 
Samt Bernard sont les specialties 
du sauvetage en monlagne Notre 
Bernard a nous sappelle INTERNI- 
COLA et son programme sur VIC 20. 
SAUVETAGE. vient de gagner le con- 
cours mensuel 10 000 Francs offert 
par HEBDOGICIEL. et un livre de la 
Regie a Calcul Lesaulresgagnants 
des livres de la REGLE A CALCUL 
sont Stephane GILLOT Mike 
LAHMY J F JEUNET, Antome DU 
CRET, Jean Jacques TANGHE. Mi- 
chel ZINDY Elie MADEUF Christian 
LEGRAND. Pierre WRIGHT. Nathalie 
DETRUIRE. Pascal PIERONI, Slim 
CHERNI. Emmanuel BERNOUD. Ber- 
nard POYAU. Bernard DUPIN Pascal 
PIERONI gagne les deux cassettes 
OffertesparSQUIRELLEpourORICl 
Christian LEGRAND pour FX 702P et 
Elie MADEUF pour PC 1500, gagnent 
chacun dans leur categorie. la gam- 
me complete des cassettes de jeux 
offerte par LOGI STICK ■ 



Vous etes de plus en plus nombreux 
a nous faire confiance Chaque se- 
maine de nouveaux abonnes nous 
rejoignent, les programmes arnvent 
regulierement. toujours plus perfor 
mant. Le logo fonctionne tout a (ait 
regulierement. le FORTH ne va pas 
larder et les nouveaux ordinaleurs 
sont presents dans Ihebdo Nous 
allons tres bientot aller encore un 
peu plus loin et venir vers vous une 
salle a PARIS sera a votre disposition 
pour des rencontres, des reunions, 
des presentations de matehels et, 
peut-etre, un club HEBDOGICIEL 
Une histoire a suivre p 



Gerard CECCALDI 
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HIPPOREBUS frouvez lexpressmn qui se cache dans la B D del hippocampe Decompose en Irois 
(solution en page inleneure) 



;yliabes dans les trois premieres cases, le "tout" a evidemmenl un rapport avec Imformatique 




V. M^ fcW24 Fevrier 1984 ^J 



AHemagne 3.50 DM - Belgique 55 Frs - Canada 2.50 $ - Luxembourg 57 Frs - Suisse 3 Frs - 
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FANTOMERGIE 



Vous etes un fantome energique ayant un potentiel initial 
de 3000 volts. Vous devez detruire des electrophages. 
chaqueelectrophagede^mitvousrapportelOOOvolts. re- 
presents par 7 eclairs en haut de I'ecran, sans vous heur- 
ter aux absorbeurs d'energie. 

Le fantome se deplace grace aux touches : Yvers le haut, 
B vers le bas, G vers la gauche et H vers la droite. La barre 
d'espace vous permet de liberer une decharge d'energie 
dans le sens du dernier mouvement du fantome. 

Carol LIMBARD 




jti iju-iufiiiseea 

k% rem iMiriMLii-FiuuN 

Si Nt=i6a.-^ L<R=3e,67? FR=6 E£=l KB=2 EL=; 
= 1 

a 

35 P0KE36B63,25S 

40 REM HFf-ICHflGE 

58 PRIHT"T. PQKE36379.93 'PRfHTTftBCS>"» 



pf=6126 ?i.=y??a 3t>7Ssa cH-saee nh^hj 

id Ai6>=-i3 FK7>=21 R<S>=HH PCKE36S78.1 



FlNTCH1E«tiIE" PRINT -PRINT "II; 

69 PRINT' , ====-«=======-«-=— »■■, ■ FCIRU»lT01?-PRINrL 

80 FORCi=?76ST0S139 

3S IFRNIHil. 1 :.. lRNJt!--hL-.K<lJj-..^lHtH r 'ijK£lj--; r'Of.iJl* 728+0, 7 

90 NEXT 

100 PQKEPF.Hi POKJ -.ij. --.iOi-H -.1 POKEPE.EL POKE30?2a+F'E, 1 

110 REM FHGUILLRL3E 

120 P=PEEK'.,;mj. ri;UMhHiv=X GOTO130 

130 K=l»HBS(P=43)+2»iflBS';p»19;+3*BBi.^P^llJ-i-4*fifii,kP=35 J *5*flIiS^P=32> 

135 IFRNDa.!;-./hiiDri,':;-'j)THENK»6 

152 ONKGOSUB180.210.24e- 270, 328,370,400,440,483,5)00 



r'SC.TflBU 
1 ". NEXT 



52t' WOS?* 
236 PEil FR -1 
240 Dl=-22 
253 GOT 0292 
260 REM FM *2 
370 Ll=22 
280 fi 



c omwiod°* e 



298 X 

3.M HF = I,F+L1 F'OKEPf'+BF.B POK.t.I-'si.'^J-r 



.J=3) ■JFXORtPEEKfPF+BF+DlK>32ThEHREIUR 

POKEPF+DF+-EI , 3£ ' RETURN 

V\C 20 



'jS iFFEf ■ t»'Li- . .-:i.'lHt.rii-uNtllL.M RETURN 

-, ■ . -J l _.. .... |-!..;i Llif-.i.iM ! ,--i:;:« ; 2.i-i'-^, , 

;5u i-_>tLt"i" 32 fifi-liH+BI NEXT 

i-iij F'UKEIIE-0 RETURN 

365 REM RFFlCHfluE El 

i?d Ly.=(i:in-i'.kuL' 1. - + S.-U ■ H--,-+Hj3vFtt- - rt^jjUTUXW. ■ it N.>T-t £ lUPt ■■ !«i'i!i ■ ,, .-:..; THtl IF; 

ETURN 

:*0 Lw=I:J-j+r:X r-Crfcr-t + iiil J Fultr-fI.r:o+-ii.-..^- U-i sjsHi: >■ kNIJ' 1 K. 1 .■ RETURN 

jyu Kin r<£i!L»Ufie : 

■iijy rUl-.F.F>Ti..-...i t :jkO=-;iMO.;-:.' FTK.LviV.ij f .>■ ! -- 1 1 .j c . ilt.a NEXT 

4lu PuKEGP y PRinVec .. lH£-.o>"«HSBWilia*ETRUiri '.Bl rOPu-i i05L"jij iit;..i PP1NT"3* 

420 RUN20 

4i« S-tH EL TOUCHE 

44* F0KEPE+HN.4 Fu^iYlUc fjKEbR. >4i+u NLKI POKLuP ■ >i I'UKLi-L + lJn, J2 Hj>Hj>2 

•44=. FLiRU=r;-.-:SiurTi4'Ht. PiXEL', I NEXT 

4Ti._i x.--)u.t.Hi:'-.-lij... =?'.■ JJ-XlHtMRETLKN 

4.iO DN=ij PL-:,VVfiiT-':.iVi(I>.-.!:'*iy> + l RETURN 

■f.-tf REN DECHHRGEi=H 

-■.;■;: fl.-i' ( | ii PRIM iMiMi^lSJ!^ ,_,.'_-. nt l;K..I-il-il-...r..:, ■ ! .,!■:■..- 1 I ,.^.j.jl. UL,'-'l Ou IU-L.h 

490 REM .222V BSGN61 

:..J.J PRINT rf FRINT"«aMKIIW»M»|i»»ir220 V " «l" PRINT' WMmMKiaSflGNE" 

T.t>_r K'kO=i I01.J POiXNi; .-iji.---'.'-;.,- i-C'i'f- icji.'u Nf.-:i nl.-:i pi.iienl-1. njF;u- 1 iij-v>:»j me;it a 

OT0428 

i.J'JOU |-i;n,K^.i:i PuKE':. t .,I-o -,u.: n-.'lte rCKi hIOi-h-'jU FijI-L i . rEEKf l*^, c .(i>3J ■ HEKT 

iwlfj 1-tnIiF lFF-.,-liHtttfLit,tH+ ( . I- l^i>1 IJUIU10212 

itfO^ti L-OTO20 

i:*>-;:ij Shilicfi. I2c.21i'.?l.-J SK-2r^ ^'j 1 :'.. l'i.-:..:.7.. if-.-??. 1 ?.' ■ 2, 4 • g. 16 

10042 I'Plfriee, 126. 50.24,24.24.^), 'it!. 1 !->':.. 36, 2'4,2'j':., l r j]: ■ 21^ ■ 36.68 

10058 DRTFI6&, i '& . 3£. . 24 . 2-( , 3&. 129, 66. -1 ■ 



GRANDS NOMBRES 



Ceprogramme est unutilltairequiregroupequatre modu- 
les repondant chacun a un besoin specifique. II permet 
d'effectuer des operations sur de grands nombres com- 
portant jusqu'a 10 chiffres. 

Joseph HECTUS 
Moded'emploi : 

LBL * bis effectue la multiplication de 2 nombres (des entiers naturels) 
ayant chacun jusqu'a 10 chiffres , 

LBL + bis est sembiable au programme precedent mais effectue ('ad- 
dition de nombres de 10 chiffres et plus. 

LBL AJUSTES traite un cas particular du programme precedent il ad- 
dittonne la retenue 1 au nombre setrouvant dans le registreO! etne lais- 
se que les dix derniers chiffres. 

Ces trois programmes peuuent etre utilisesafin d'ecrire un module per- 
mettant d'effectuer une multiplication enfre deux nombres arbitrage- 

LBL TRADUIS permet de transformer un nombre decimal (|usqu'a 10 

decimales) en fraction Irreductible. 

Cet ensemble de programmes porte le nom de LBL GRANDS 

Faire SIZE 002, entrer le programme, compacter 

LBL * BIS Entrer N 1 , ENTER. N2. Xeq * BIS 

LBL + BIS Entrer N 1 . ENTER. N2. xeq + BIS 

LBL AJUSTES Entrer N 1 , STO 01 . Xeq AJUSTES 

LBL TRADUIS Entrer D1, Xeq TRADUIS 



Bl«LBL ■WW 

ez»L6i. ■« US' 

83 BDV 

94 1 E5 

95 STO T 

66 ST/ Z 

67 I, 
88 FRC 
99 ST* Z 
19 LflSTX 
tl IftT 

12 STO 81 

13 X<> Z 

14 FRC 

15 ST« T 

16 ST» Z 

17 X<> 1 

18 INT 

19 ST» 81 



21 MT 

22 STt 61 

23 X<> L 

24 FRC 

25 XOY 

26 INT 

27 STt 61 

28 tO L 

29 FRC 
36 t 

31 XOY 

32 INT 

33 1 E5 

34 / 

35 t 

36 INT 

37 STt 81 

38 XO L 

39 FRC 



46 1 E5 

41 SI» Y 

42 XO Z 

43 FRC 

44 t 

45 « 

46 CLH 

47 CF 29 

48 FIX 6 

49 RCl 61 
56 X=8? 

51 CTO 91 

52 SRCL X 

53 9 

54 « 
55<LBL 96 

56 XO L 

57 16tX 

58 X>Y' 

59 -F6- 




75 * 

76 STO L 

77 X<6' 

78 * 

79 9 



116 HOD 

117 X=8? 

118 GTO 94 

119 LBSTX 



CHATEAU 



La reine du royaume est prisonniere dans un chiteau 
hante. Le but du jeu est d'aller la chercher et de la ramener 
vers la sortie. 

Alain DUBUS 



Mode d'emploi : 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 


19 


20 


21 


22 


23 


?A 


25 


26 


27 


28 


29 


30 


31 


32 


33 


34 


35 


36 



H 

QUEST 





Touches de 
deplacement 



" EST 



? 



Variables : 

A (27) : OURS 

A (28) : OGRE 

A (29) : LION 

A (30) : DRACULA 

A (31) DRAGON 

A (32) TRESOR 

A (33) : RUBiS 

A (34) ; LA REINE! 

A (35) 1 C,B CATAPULTE 

A (36) ; 2 emB CATAPULTE 

A (37) : ESCROC 

A(38):1°'COFFRE 

A (39) : 2 0me COFFRE 



E : PIECES D'OR (100 au depart) 

T:N°Salie 

H Test de direction 

K, L, M. N.O : etst desmonstresegal 

a si le combat est refuse ou perdu 

R Q ; indiquent si une salle est oc- 

cupee. 

Lignes 604 et 607 : remplacent une 

catapulte el un coffre (econo- 

mique '.) 



Faire SHIFT - en mode DEF 

Patienter environ 1'15" pour le remplissage du chateau. 

Veiller a laisser libre 104 pas de memoire A (27) a A (39). 

On peut augmenter la valeur de E en ligne 522 si on veut tricher. 



PC 1211 



It REN DUBUS 

5:X=<97H+X+2> 

*97:Z=INT (X 

/E3>:X=X-E3Z 

10: IF X=0THEN 5 

20:X=<E3-'X>'-5:V 

=X-INT XtY= 

INT ABS CSV* 

W>: RETURN 

500;"='*ft=O:S=34J 
W=2 

505! FOR I=27TO 3 
9 

51Q:B=Q:GCSU£ 5 

515: FOR J=27TO I 
:IF Y=A<J> 
LET B=l 

520= NEXT J:IF S 
THEN 510 

522:fia>=¥sNEXT 
I:E=100:C=0: 
K=0:L=0:M=0: 
H=0:0=0:T=1 

525: BEEP 1: PAUSE 
"SALLE :"!T: 

input " dire 
ctigh?";u 

530:H=T+'--6*aj=S 
>*6*<1J=2>-1* 
<U=4>+<U=6» 

: IF H=TPAUSE 
"TAPEZ 2,4.6 
,9": GOTO 525 

540UF <H<l; + i.H> 
36>PAIJSE "IM 
P0SSIELE":H- 
TSGOT0 525 

545= T=H 

550:E=E-S:IF C*< 
T=iJBEEP S: 
PRINT "BRAVO 
? CHEVALIER' 
" : END 

555:J=10:P=0 



M0s:.R3R r=27TO S 

l:J=J+l:IF i 

T=R<I))*«<J 

J=0>LET P=J 
565:NEXT IsIF P 

BEEP 4: GOTO 
560+P 

570fGOT0 580 

571: PAUSE " UN D 
IJRS":R=20:K= 
l:G0T0 655 

572: PAUSE « UN 
GRE":R=25=L= 
HGOTO 655 

573: PAUSE " UN L 
I0N":R=30:M= 
tlfiOTO 655 

574: PAUSE " DRAC 
ULA":R=35:H= 
l:G0TO 655 

575s PAUSE " UN D 
RAG0N":R=40: 
0=U GOTO 655 

5SO*J=0:Qs=0 

585:FCfR I=32TO 3 
9:J=J+l:IF T 
=A<I>LET A<I 

590: NEXT IMF Q 
BEEP 4: GOTO 
600>Q 

S'^=,: GOTO 640 

601 j PAUSE "UN TR 
ESOR"=E=E+60 
:G0TO 645 

602: PAUSE "UN PU 
BIS":E=E+50: 
GOTO 645 

603: PAUSE "LA re 
I HE -ENFIH!" 
:C=l:G0TO 64 

604: "■' 

605: PAUSE "CATAP 



ULTE":S=34:W 
=2:G0SUB 5:T 
=V!BEEP l: 
PAUSE "SALLE 
"fTsGOTB 55 


606: GOTO 615 

607 

60S: PAUSE "UN CO 
FFRE |M :S=50 
:W=10:GOSUB 
5: IF Y<15 
PAUSE "IL EX 
PL0SE"!E=E-2 
Y.-GOTO &45 

610: BEEP 3: PAUSE 
"IL CONTIENT 
"!Y!" PIECE 
S":E=E+Y! 
GOTO 645 

615: INPUT "VEUX- 
TU UN TUYAU 
?"!At:IF A¥= 
"Q-THEN 630 

620: PAUSE "TANT 
PIS": GOTO 64 
5 

630: BEEP 1: PAUSE 
"LA REINE ES 
T EN ";AC34> 
:S=E:W=l: 
GOSUE 5: 
PAUSE "7U ME 
DOIS "fY!"P 
IECES 

ft-.5:E=E-Y:G0T0 6 
45 

640SSEEP l: PAUSE 
"SALLE VIBE 

ft45: PAUSE " P.O. 
=■'»£: IF E<0 

psit-fT "hhieu 

MIHABLE": 

EHU 
660: IF A*="F"LET 

E=E-10:G0T0 

670 
670: J=10 
67SSF0R I=27T0 3 

l:-J=J+i:IF T 



6:^0: NEXT I: GOTO 
645 

685: 3=10: W=0: 

GOSUB 5: IF Y 
<4LET E=E-R: 
BEEP 2: PAUSE 
"PERDU": GOTO 
670 

690:E=E+F::BEEP 3 
: PAUSE "VAIN 
QUEUR":GOT0 
645 

650: GOTO 525 

655: INPUT "FUITE 
OU COMBAT < 
FVC} w fftMIF 
Af="C"THEN 6 

m m 




CHEQUIER 



Possesseur d'un TR.S 80 16K sur cassette, il ma toujours 
ete impossible de trouver dans le commerce un program- 
me de gestion de compte bancaire sur magnetophone. 
J'ai done redige celui-ci qui permet de gerer jusqu'a 100 
operations et qui possede (bien qu'entierement redige en 
Basic) une routine qui racourcit considerablement les de- 
lais d'enregistrement et de lecture (environ 5 fois plus vi- 
te). Ce programme est ecrit pour un TR.S. Modele 1 mais 
tourne egalement sur un modele 3. 

Jacques PELERIN 

1) LA PREMIERE QUESTION posee demande si vous voulez creer un 
compte Si castle cas tlfaudra preciser 

A) Le nom de votre Banque e1 dans la meme ligne le N° de compte si 
vous en possede* piusieurs dans la meme banque. 

B) Le sol de initial 

Vous en donnez tout d'abord le montant el vous precisez ensuite si 
e'est un credit ouun debit Attention 'leprogrammeest (a I inverse des 
habitudes comptabies) PREVU pour reproduce les reieves bancaires 
que vous recevez 

- Une somme versee a votre compte sera un credit 

- Un cheque sera done un debit 

Enf in le solde initial doit correspondre a une somme donl vous etes sur 



car eiieservira debase pour la werlftaaiton davosfutura reieves C+++J- 
2) IL VOUS FAUT ALORS INSCRIRE VOTRE PREMIERE OPE RATION en 
donnant 

A) LA DATE le 5 Jum deviendra 05/06 

B) EST-CE UN CHEQUE (O/N) 

•si out -il vous sera demande de preciser les 4 demiersnumerosdece 
cheque, puis le montant du cheque 

* Si ce n'est pas un Ohegue voir. dofirwa le montant de loperation et 
precisez s'N s'agit d'un debit ou d'un credit. 

C) LE LIBELLE DE L OPERATION Attention pas plus de 13 lettres 
Voire operation'. inherit alors sur lecran. Telle que vous lavezdonne. si 
vous n'avez pas fai t d'erreur tapez (I) pour inscription, si vous vous etes 
trompe tapez (C) pour recommence! la manoeuvre 

Votre solde apparaitalorset vous pouvezfaire(M] pour rejomdrele me- 
nu ou taper sur la barredesespaces pour une autreoperation. Si vous 
tape sur taDarre par erreur vous pouvez toujours retournerau menu en 
repondant a la question date par une ASTERISQUE 

" ■ -■ -:■::■:■■•■..■ .-ivih EST EN TIEREMENT COMMANDE PAR MENU 
5' 1 Vc-_i donns iolr= ^ikiauori banc-'ie 

3] Pourenregistrervosdonnees attention ilest plus prudent defaire 2 a 
3 enregistrements de vos donnees, les cassettes etant moderement 
fiables Le.mieyx est d'utiliser une cassette C60 ordinaire du com- 
merce en notant avec precision au compteur les endroits d enregis- 
trement 

2) Permet de lister votre compte par plage de 10 operations 
6| Permet la correction d'une operation non encore confronted a un re- 
ieve bancaire 

Le numero de loperation correspond a celui du listing (option 2 du me- 
nu) VDUBpouvezoorrissi Buccesarvementuflou piusieurs elements de 
cette operation II laul etre logique dans ces corrections (un cheque ne 
pourra etre insert comme positif etc.). 

4] Constitue I'essentiel du programme puisqu'il s'agit de la confronta- 
tion au reieve bancaire recu 



* Une premiere partie 0u sous proofs m me 

(a) Annonce le nom de ia banque 

(b) Demande le N'du reieve 

II peut figurer stir le reieve pour cedaines Panques [CREDIT LYONNAIS 
par exemple) ou vous pouvez en attribuer un si les dates corres- 
pondent 

(C) Apparait alors le solde initial qui figure en haut de votre reieve. 
Si tous ces elements sont exacts vous pouvez continuer le pi 
Dans le cas contraire il vous faut retourner au menu pour etudier ci 
ne va pas (II vous sera impossible de verifier le reieve 203 si vous n'avez 
au prealable deja verifie le reieve 202] 
" _V°_ys_ a_ye_z alors piusieurs opt tons 

ipl Pomtage en tapant sur la barredesespaces vous faitesdefilerunea 
une les operations non pomtees. Lorsquune operation correspond au 
reieve vousfaites (I) pour inscription Cette operation paraitra comme 
en cours de pomtage Sur le listing (option 2 du MENU) sous le numero 1 
qui paraitra entre la colonne numero et la colonne date et ainsi de 
suite... 

Si vous voulez modifier une erreur commise il vous faut faire (M) pour 
menu et passer par ('option 6 du menu 

(c) Pour creation dune operation (frais de limbres par exemple) qui 
n'existait pas. on est alors directement rebranche sur loption 1 dume- 
ru mais le pomtage est alors automatique 

(f) Fin de pomtage A utiliser lorsqueTOUTES les operations du reieve 

ont ete pomtees 

Le solde esl alors autontatiquement calcuie 

- Si il coincide avec celui mdique en fin de reieve tout va bien Vous re- 

pondez oui a la question posee. 

LES OPERATIONS AINSI POINTEESSONT ALORS INDIOUEES PAR UN 

| AU LISTING ET NE SONT PLUS CORR1GEABLES 

■ Ei'.c^ci erreur iifaul rechercherlanprnalieen retournantal'option 2 

(listing) et 6 (correction) du menu 



I BASIC- MICROSOFT CE PROGRAMME EST F 



TBS 



80 



i:CLERR3300 



CDMPTE CHEQUES 



•! PRINT 1PRINTTRB 12.7 )STR I N£ 



tN.'BBO 



Ft, E.OI.MR, NR. J.Bt 
99).Ni99t.Pl991.R(99> 
■■:Z=91J-10iE— 1 
JT397B, "VOULEZ VOUS UTILISER UN ENREGISTREMENT i 



IINPUTl4*iIPW»="0"l 



200 i: 



IFW«<> 



■NOM DE VOTRE BRNOUE 
21B PRINT: PRINT I PRINT: 0=0: PRINTTR8' 
220 GOSUB3000! IFU*="D"THENOI= 
23B IFU*= , C"THENOI=MELSEGOSUB40B0:GOTO220 
240 MR=OI:NR=0:GOTO100B 

30B CLS: PRINT: PRINT! POINT : PRINTTAB 122) -.***** PIE! 
TIB PRINTTHBU2>"H) POUR INSCRIBE UNE OPERATION" 
320 PRINTT0BU21"i2> POUR LISTER UN COMPTE" 
310 PRINTTAB(12>"i:3> POUR ENREGI5TRER V05 DONNEES 1 
348 PRINTTflBf 12)" (4) POUR VERIFIER UN RELEVE" 

i50 pniNTTOB-::?."i5i pour avoir votre situation" 

351 PRINTTABi,12) "<&) POUR FRIRE UNE CORRECTION" 
37B PRINTSPRINTiPRINT 

385 IFm(1ORW>ETHEN300 

390 OWMGOTG1000. 1500. 6BEB.5500- 7000. 7500 

1000 GOSUB1005:GDTG1270 

1005 CLS: PRINT: PR1NTTRB' 101 "IttHHUI INSCRIP1 

1010 E-E-lPPlE)-B:H"lfl 

1B20 PRINTtD*iE>=""iINPUT"i * • dote U. 

1025 IFD*lE>-"-<"TME.NF-E- J :GCTO30B 

1.010 1FL.ENI D*'E>> <I5THENGOSUB1O00:GQTO1020 

1B35 PRINTsPRINT 

104B PRINT"* # * EST CE UN CHEQUE <Q/H> 

1850 UB=INkEV*s IFW*"' "THEMlBSOELSEORINru* 

1B51 [r MS. -■[-.! VHEfJIBEO 

10E0 IFHSO"O"THENGOSUBd&B0'GOTOlB4B 

1070 INPUT'NUMERO DU CHEQUE = "1P<E) 

1B75 IFPIE))9999THENPRINT"D0NNE2 



HL DU COMPTE I 



■!PRINT:PRINT 



IDN D'UNE OPERnTION 
'MM> j -iD»'E) 



LES h DEHNIER5 CHIFFRES":GOTQ107B 



10B5 INPUT"* * * MONTANT : ";M 
1B90 IFPIE) OBTHENU1B 
110B GDSUB3B0B:IPW*--'C"THENN(Ej=M: 
1105 IFgS<>"D"THENGDSgB400B:GOTDlI 



1250 F 



'* * * LIBELLE : "'flsiE) 

:hS<E)II13THENPHINT"h-+ TROP 

!INT:PRINTTfi8(12)" VOICI 

: PRINT: PRINT :GDSUB5000 

r«Ba)E+HTflB(7>D»i:EH 

i)BTHENPRINTTaBr27)USINGP»:NlE>! 

I t0THENPRINTTPB(15]USINGF*IHB5IN(EH 



1Z5S f 



L>=OTHENPRINTTfte'57i---"ELSEPR]NTTHB156JPI[ 
TiPRlNTtPRlNT "(IINSCRIPTION OU (C10RRECTIOI 

1236 W* 1NKEV*: IFH»=""THEN125£ElSEPRINTW» 

1260 IFW»='C "THEN£'E-l:GDTQ1000 

1265 IFUXV I"THENGO5UB4000tGOTO12B0 

12EB GOSUB^BBOiGOSUBSBSBiPRINTi RETURN 

1270 P«INT"(M)ENU DU < )ENCORE UNE OPERATION" 

12S0 Ht=IMM,EV*: IFW*=""THEN12BB 

1Z90 IFW*=" 'THEN1000 

1300 IFWS="M"THEN300ELSE12e0 



FRr:w)^lTHENPRINTT(5Bi: 
FRCU>> 18THENPRINTTRBI 
'RINTTflB17)D*'Wl t 

FNi:U.'>BTHENPHINTTDBr: 




1 IFW<ZTHENU*W-*l:GOT0153B 
1 PRINT:PRINT:PRINTTnBliet' 
i IFINKEV»"""THEN1605 
1 Z=Z*lB:W=uai:G0TC151B 
J PRINT:PRIWTThBi13J"--- 



IN DU LISTING 



: GGSUB9B00: GCSUB5050 1 [ 



2-0B0 d-fi:PRINT!PRINTTRBI171"«.««-» 

NT"-- PREPRREZ VOTRE MAGNETOPHONE ---IPRIN' 

PQUR COMM£NCER"iW* 
201 B INPUT!*- l.B«. 01, E. J. MR. NR. D*i0> . P10) . NU 
2011 PRINT:PRINTTABl25r .LLTTURE EN COURS) ' 



JINPUT#-l.D*iSi. 



JINPUTH-1. DSiSi- 



IF T-jTHENINPUT*-l.D*i.Sl 
11 , DJi S+2 ' , Pi 5*21. N'S*2' 

IFT-2THE.NINPUTtl-l . D»< SI . 
iI3«S+2iT«T-2 

[FTolTHEN INPUT*-l.D»i.Sl 



PRIkT-**»« ERREUR 
.IBELLE m*rl 



. :S=5*5:T=T-5:GD T O202! 
i.RSi.Sl.d'Si.MtS+lI.PtE 
»■ S*Di ■ D» IS* 31 . P(S+3> , Nl 

il.n»ISl.R<5KDSiS*ll. P( 
R'S*2i:S=S+3=T=T-T 
i.BHS).Rf5i.D«iS*Ii. PtS 

l),H*(8)*H(6)ia-«*l*T«?r- 



184000: GO TO 3000 
DEBIT 



Bi57>-N.CHEP" 
3B1B RETURN 

5850 IFD>0THENPRINTTRB.2B'"VOliS OVEZ EN BRNOUC t"!LSJHSF»10tipeiMT» FRS, " 
5BE0 IFO<-0THENPRrNTTOB'20)"VOUS AVE2 UN DECOUVERT DE :" ;US1NGF*' ABS> G ■ • : PRINT- 

5B70 RETURN 

510B PRINTTOB-IE'-FRIRE (M) POUR LE HENU" 



SUB IFIMKEVJ^ 1 ■■THEM.!1SELSERE T L'RN 
E.0BB CLS : PRINT : PRINT T nB": 17) "**»*■* 

PRE PORE I VOTRE MAGNETOPHONE 

ENREGISTRER"1W» 
EB1B IF'Wti) l, E"THErg7-B0EI.SePPINTIi-l.B*. OLE- J. MR. NR. D*i0i . P<0' 
EB11 PRINT-.PRINTTfip, zs> 'iENREGIS'REMENT EN COURS' " :S-! i T*E 
5012 IFTl=5THENPfiINT»-l,D»(S'.P'SI.N'9'.0«'S>.R'Si.D*iS*ti.F 
.Ri:E»11.D*iS*Z>.PiS*2>.«iS*2>.A»iS+2».R(9+21.D«<S*3).PIS»31. 
),D»iS*41,PrSt4t.NiS+4>.B»iS*4l. RiS*4> :S=S-*5:T-T-5jGOT06B12 
SB13 IFT=4THENPRINT»-l,DHSi.PiS>,NIS>.A*iS'. R<91 ■ D»i S+ 1 1 , pi 
ifD*i:S+2). Pi,S*2I,N(S*2i.B»'S*2i. Ri S+21 . D*i S*J) . PfS+3J. 1 



:S*S" 
&023 1 



ToJTHENPRINT*- 
. D»'S+2).Pi5*-2: 

T-2THENPRINT,)-: 



■ 0*'E 



jiS>.( 



KS>.IJ*i , S+li 



RIN1 



"-.B» 



T ERMINE 

RELEVE BRNCRIRE 






)>0THENPRINT:PRINT" — - NUMERO DU RELEVE s "iNR 

£520 IFNR^BTHENPRINT: INPUT" NUMERO DU PREMIER RELEVE = "INR 

B530 PRINTIPHINT"— SOLDE INITIAL : " ! USINGFtl MR : PRINT : PR I NT : PI 

E540 PRINTTRBi2iJ"PEUT-QN CONTINUER (D/N)" 

E550 Wt=INKE¥*!irW»=""THEN&55B 

6560 IFU»()"O"THEN300 

6600 CLS: PRINT: PRINT: PRINTTfiBV L 7 I " <P>OINTRGE " : PRI NT: PRINT TAB r 17 1" 

lNT:PRINTTfiBUT'"<MIENU- ■■ PR INT: PRINTTABU 7 > " ,F1 IN DU RELEVE" 

£610 W«-INKEV«iIFW*= , '"TIJEN66lB 

6611 IFW»=""'THEN30B 

B61Z IFWt-"l "THEN95BB 

6620 IFH»-"C"TH£NOOSUB!Bfl5:J=.I*lJRiE)-J:FORlg-0TO90e:NEXT:GOTO6E00 

L63B IFUtUI?"TH|HBBlB 

e.&SB u>0ih-hz-9 

EEE0 CLSIPRlNTTABiS'" 1MIFNU -- I I ) NSCRIPTIOM -- 1 1LIS1 



EE7B IFRi Wi)0THENW=W*!TGOTOE678 



:NG"iCO£1UB500 



E710 FRIMTTfiBI40)ASi;W); 

67-20 IFPi:U)=0THENPRINT T AB1571'--ELSEPRINTTABi56'PiUI 

E730 ig*=INKEVt:IFWS-" l THEN673B 

67UB IFWl="M"THEN300 

675B IFu«."I"Ti-IENJ=J+!:RiW)=J:GOT066(BB 

E7S0 IFUIO" "THENE730 

6770 w=w+l:K"*+l 

E7B0 IFW1ETHENPRINT" 1 FIN DU LISTING .aPERRTION NOM RETRrjUVEE":FORU=aTO120 

B:NEXT:GGTO£600 

E790 IFH(Z<-lTHEN6£7aELSEZ=7tl0:GOTOeE60 

7000 GLS:PRINT:PRIMT:PRINT:PRINTTOBi 101 "BftNOuE : **"* "SB*!" •***" 

7B10 PRINT:PRINT:PR1NTTABU0i"DATE DE VOTRE DERNIERE DPERRTION ---) " 1 D» < .E I : GDSU 



1INT:GOSUB5050> PRINT: pi 

NUMERO DE L'OPERftTIDI 
"" IMPOSSIBLE 



-"ELSEPRIK 



7020 PRINT:PRINT:PRIN- 
75B0 GOSUB7510IGOTO30I 

7510 CLS:PRINT:PRINT' ■ 

7511 IFRIWl-ITHENPRINI 
flIFieE"iFORU=0TDlEa0iNEXT:GOTD30e 
752B PRINT:PHINTJPR]NTTfiB*7)"tl) C 
75TB IFPCW).0THENPRlNTTABi7>"(2) - 
754B PRINTTRB(7>"(31 HONTBNT : "IN 

7550 PRINTTHBi , 7)" 1 41 LIBELLE ' '■!«*<»> 

7551 IFRi:w)llBTHENPRINTTOBr7)"15) ONNULATION PDINTt 

7552 IFRlW1^0THENPRIWTTRBi:7) "151 NON PDINTEE" 
7560 PRI«rTB8<7)"(6) EFFftCE"ENT DE tqute L'QPEROTIC 



7570 IFU4<1DRW416THEN300 

75E0 DNW4GOTO7E00. 7650. 7700, 7750. 7900. 7EB0 
76B0 D*iUJ="":INPUT"NOUVELLE DOTE <JJ/MM) : 
7610 IFLENf.0*'H>'' (>5THENGOSUB40a0:GDTO76aB 



!IG0TC 



riDN A DEJA ETE VE 



7G60 I 

7710 IFNi:iJ))0ANDPiUI>0THENCLS:GO5UB4000:DO5UB4(aBB:GOTu751"0 

7720 GOTOB000 

7750 A*IW)="":INPUT'NOUVEAU LIBELLE I "tBHUl 

77EB IR-ENi:H»i.W>U13THEN7TSB 

7770 GOTOSOOO 

78BB V1-W:GOSUS7E1B:GOTO3B0 

7S10 E=E-1 

7B29 FORU-VITDE 

7S30 D*i:U)-D*iU-'l)tP(Ul=P<U-'l)tNiU'=Nru-l):A*iul=ASiU*l)!RiL 

7B4B NEKTU 



EB00 INPUT" (ft) MENU 'A> 

SB1B IFW*-"M"THENRETURN 

E020 CLS:GDTO7520 

9000 0=0 : FDRU=0TQE : 0=O»N 

9500 CLS;PRINT:PRINT:PRI 



IMPOSSIBLE * " IGOTOB000 
OUR AUTRES CORRECTION' :U* 



9530 R=R*NiWi 

9535 NEXTW 

9540 R=R*MRlPRH 

9550 IFRJ0THENP- 

35EB IFR(»0THEN 

9370 PRINT:PRIN' 

9575 INPUT-E5T-CE CORRECT i 

93EB lFM«o"0' THEN9600ELSE9700 

95?B IFW*<i"N"THEN9575 

9600 MR=R:R=B'NR-NR'l 

9610 FORH=0TOE 

9620 IFRiu-iSTHENH'Wl-l 

9E3B NEHTW 

9E40 J=10=GQTC300 

9700 IFWSO"N"THEN9575 

9S00 GOT06EBB 



MONTANT EN FIN DE RELEVE I 
7l"CREDIT ":USINGF»!R!IPR1 
17i"DEBIT "iuSINGF«iABSi.Ri 



EDITEUR DE PROGRAMMES 



Ce programme en langage machine est un editeur de 

lignes basic. II permet une mise au point simple des 

programmes. 

Vincent GRENET 

Une ligne est editee par , &NUM , .parexemple'&200,Suivide (RETURN) 

La ligne esl alors listee, le curseur esi pc-SJliorine en debut de ligne 

Si la ligne n'existe pas. le message (UNDEF'D STATEMENT ERROR] 

apparail 

Une fois la ligne listee, on dispose des fonctions suivantes : 
Avance le curseur 

* Recule le curseur 

CTRL-0 Debut de ligne. 

CTRL-F Fin de ligne 

CTRL -A Insertion (ESC) = fin d'insertion 

CTRL-S Suppression (1 caractere) 

CTRL-T Suppression (1 caractere) 

CTRL-T Recherche detente Lecurseurse place sur la premiere posi- 
tion de la lettre tap6e 

Ex : (CTRL-T puis'A'.piacelecurseursurle premier 'A' etc) ftniren 

tapant une lettre differente de la lettre cherchee 

CTRL-Z Supprime tousles caracteresjusqua la premiere occurence 
de la lettre tapee apres. 

Ex : (CTRL-Z. puis 'A' supprime tousles caracteresjusquau pre- 

mier 'A' exclu 

CTRL-I S uppnme une instruction dans une ligne qui encontient plu- 
sieurs efface jusqu'au ':* 

CTRL-B Compacte la ligne 

CTRL-Q Sort de I'editeur en effacant la fin de la ligne. 

CTRL-X Sortie sans modification 

CTRL-R Restaure la ligne initiale 

RETURN Valide la ligne entiere 

La fenetie decran doit etre normale 



suite du 
listing du 
N19 



IPC: erj oo o: 592 EC.R2 lda buffer,) 



iCALCULE LA POSITION DU 



950 B 


AD 


F7 


95 


60? 




LDA 




950E 


O 


?n 




609 


CRC.2 


CMP 


t4D 


9510i 




iia 




410 




BCC 


crci 


9312i 


PP. 














9513: 


F9 


?s 




(tip 




sec 


£10 


95151 


4C 


Ufc 


V5 


£13 




JMP 


CRC2 


9318: 


F« 


?4 




413 


CRCI 


STA 


CH 


931 A i 


AA 














931 B 


1" 














9SlCi 














BASEV 


951 F i 


ua 


25 




419 




8TA 


CV 



ftp 



#s& 



9440 


AD F7 


99 


487 


RAVANCE 


LOA 


CURSEUR 




MM 


DO 01 


9! 


488 
489 




BNE 


FINLIN 




9475 


40 




490 




RTS 






9479 


20 24 


95 

93 


492 
493 


*» 


JSR 


RBTCRS 
CURSEUR 




94 7C 


4C 38 
20 24 


95 


495 
494 

499 


RANNUL 


.... 


SETCRS 

R9TCRS 


• 


94 B2 


AC P6 


9! 


501 






FINLIN 




*4 !>■< 


80 F? 




502 




STA 






94 B6 


20 09 




303 




JSR 


CRCALC 




94BB 


A9 DC 




304 




LOA 


e*oc 




94 BD 






303 




LOV 


CM 




94BF 


91 28 


„ 


904 
507 

soe 




STA 
JSR 


ITm '* 






4C 3C 


D< 


309 
510 
511 




JMP 


•D43C 


1WARM ST 








513 








/frf/ 


9497 


20 4E 


93 


313 


R2AP 


JSR 


KEVIN 


MA 


94^! 


20 BO 
SO 01 


93 


514 
317 




JSR 


CHERCHE 
2AP1 




94A0. 


8A 




518 
520 


2API 


RTS 




^ 




ED F7 


98 


521 




sec 


CURSEUR 


C~ 




4C 37 




522 

323 
324 
525 
524 
327 







supp 




94A9 1 


A9 BA 


n 


528 


RSUPIM5 


LOA 


f:" 




94AC: 


BO 01 


530 




BCS 


R5UPI 1 




94AE: 


40 




S3! 
332 




RTS 








E8 




333 


RSUPI1 


■ NX 








4C AO 


94 


334 
535 

534 




JMP 


ZAPI 














424 








9324 






99 




RSTCRS 


JSR 


CRCALC 


9327 


AE 










LDX 


CURSEUR 


932A 


BD 


00 


02 


429 




LOA 


BUFFER, > 


9520 


C9 


A0 




430 






E«A0 


P32F 


B0 


02 




691 




BCS 




9331 


29 


7F 




432 

633 




AND 


t«7F 


9333 




24 




634 


RST1 


LDY 




953Bi 


91 


28 




433 




STA 


<8ASL),Y 


9537 


40 






634 
637 

£39 


....... 


RTS 


........ 


953B< 


20 


09 


95 


642 


SETCRS 


JSR 


CRCALC 


933 B; 


AE 




95 


443 






CURSEUR 


953E: 


BD 


00 


02 






LOA 


BUFFER,). 


9341 i 


29 


7F 




445 




AND 


£»7F 


9543: 


C? 


40 




444 




CMP 


E*40 


9343t 


B0 


02 








BCS 


SET1 


9547: 


09 


40 




£49 




ORA 


£•40 






24 




6S0 


SET1 


LDY 


CH 






29 




651 






<BASL> ,Y 


9340i 


40 






692 

£53 
694 

ISS 









ilS LE CURSEUR SURL'ECRAN 



A P 0B to 43B KEYJN tpA a/WIER 



STA COMPT 



9337 


fiD 


FA 


93 467 


935A 






££B 


935B 


HO 


22 


469 
670 


955P 


At- 




95 671 


9540 


be 




672 




nn 




02 674 


9544 


90 


H- 


01 675 
476 




tc 




95 677 


956A 


vu 




67 B 


936C 


PO 


PS 


479 


9346 


CE 


™ 


93 6B1 
682 


937J: 


lib 






9574: 


00 


\-/ 


684 
495 


93761 


70 


1)9 


93 686 




2(1 


V/ 


FC 4B7 


n 7e i 


20 


CH 


94 6BB 



ISUPPRIME A L'ENDROIT DU CURSEUR 
)LE NOMBRE DE CARACTERES 
iCONTENU DANS A 



DEC CDMPT 



JSR CRCALC 
JSR CLREOP 
JSR ECRIS 



9483 


BE 


F9 


93 


344 


STOCKE 


STX 


SAU 






Ah 


Ft 


9! 


349 






FINLIN 
















CPX 






94BB 


HO 

En 


117 




948 




BEG 


STK1 




94BE 


AE 
60 


F* 


02 
95 
93 


549 

390 

353 
354 

555 
354 


MB 


STA 
STX 


BUFFER, X 




94C8 


20 


" 


K 


338 
559 


ECRIS 


JSR 


CRCALC 


] ECRIS LE TEXTE DE LA t 


94CE 


SO 


00 


02 


961 




L» 


CURSEUR 
BUFFER, X 


;A PARTIR DU CURSEUR 


94D1 


29 


7F 




563 
544 




AND 


i*?F 




94D3 


C9 


40 




563 




CMP 


£*40 





94DF 


A5 24 574 


94EI 




94E3 


90 OF 374 










94E8: 




94EA- 


83 24 380 


94EC: 


E6 23 381 


94EE: 


20 22 FC 582 




AC F9 95 383 




5B4 






94F3i 


EC FS 95 594 



9380 


AE f? 


99 


i96 


CHERCHE 


LDX 


CURSEUR 




9583: 


EC FB 


9: 


69? 


CHER1 


CPX 


FINUN 




9586. 


FO 07 




498 






CHER 2 




95BBi 


EB 




499 




I NX 




;C»1 St LE CARACTERE EST TSOUVE 












CMP 


BUFFER, X 




r,*r 


DO F3 




701 




BNE 






9SBEl 


40 




702 
703 




RTS 






95SFi 


IB 




704 


CHER2 


CLC 




iSINON C-0 



9591 


AO 


04 




711 MOD 


F LOY 


£4 






B9 


BD 


93 


712 MDDIF1 LDA 






9596 




9D 




713 


STA 


(FAC) ,Y 




P59B 


B8 
10 


FB 




715 


DEY 
BPL 


MODI F I 




939B 


60 






720 
721 













BO 




722 AUT 


JM LDA 




(LES INSTRUCTIONS 




B5 


9D 




723 




FAC 


(DE STOCKAGE O'ESPACES 


95A0 


A9 








LDA 


ft)MI 


(SONT RESTAUREES 


93A2 


83 


9E 




723 


BTA 


FAC+1 




95A4 


20 




95 


726 


JSR 


MOD IF 




95A7 




98 




727 


LDA 


£<M2 






eg 


9D 




728 


STA 


FAC 




9 SAB 












£>M2 




95AD 










STA 


FAC*! 










95 


731 


JSR 


MODIF 








CA 




732 




£<M3 






85 


9D 






STA 


FAC 




9986 


85 


92 

9E 




733 


STA 


PACtl 




P5BA 


4C 


91 


95 


736 


JMP 


MODIF 





Suite page 5 



COMMODORE 64 
PARLE FRANCAIS 



La zone confluence de la langue francaise s'etend tous les 
mois, en tout cas dansle domame des micro-ordinateurs : 
.ipres I'APPLE II, le COMMODORE 64 est maintenant ca- 
pable de s'exprimer dans la langue de Mofiere. 

Gerald LIMBARD 

./lode d'emploi 

iuidu programme Ce programme utilise unepartiedes 4 Koallantde 
49152 a 53248 pour y placer des tables et sous-routines. 
Gela implique que i utilisaleur ne doit pas les modifier une tois le pro- 
gramme en langage machine mis en place 

En deviant certains pointeurs le Basic du Commodore 64 peut a volon- 
te parler Anglais ou Francais 

Pour ceux qui i/oudraient modifier les mots-clesil taut tenircomptede 
certains imperatifs : 

- Le nombre total de lettres des 76mots-cles ne doit pas exceder 255 

- La derniere lettre de chaque mot doit etre codee en ajoutant 128 
(bit 7 = 1). 



Utilisation du programme Pour lancer le programme, deux solutions ; 

- Version Anglaise • Version Francaise : SYS 50292 

- Version Francaise * Version Anglaise S/R 50261 
Table de Correspondence des Mots-Cles ; 



ANGLAIS FRANCAIS 



ANGLAIS FRANCAIS 

CAPTE 
EFP 
TAB( 
VERS 
FN 
ESP( 
ALORS 
NON 
SAUTE 
CH$ 
VAL 



;i REN 

" REM 



TRPLE DE- HE -:.-"oE -■:■ H ERREUR i 



■3lii [ifiTfl FK.Hit.P-. 7Ri> ML.-iiih-E-.ij:-: r- [CHifcR UE.irt '..-ij- -U- - ' !' Miff- -;■;■> | rigvEPT 

46i DATA FICHIER HON TRO! ■■ PERIPHERIfflJi ABSENT, FICHIER EN SORTIE 

...u ,.hTh . ,-;;:- -j, -.r-iE ■.:.'- fflj FICHIES RBSEN1 T PERIPHER10UE ILLEGAL 

r,M [|RTR PPm.hHL', ;.HN ? fi.._ R r-NiP^E RiF b-«*^ vfi--F TjijUF/tE :■ EFUrSEE? 

70 DATA OUANTITE 1lLE0R,l IE pr-RiiEi-iEUT Mt MO I RE RLE ['it Iri: T?'X ; ION JNBEFINIE 

33 UATA rlflUVHI-- INDICE-ThBLERU K 1 1- 1 !'E.II;.ruM"E n I ■., [^ [.-;.-, t „-: --,-.. 

93 DfiTh ILLEGRL EH NODE DIRECT DESftOCORU lit Tvt-t i.hhIHE TROP LQHBUE 

100 DRTA RICHIER DCiKUEES.FORIIULE TRGP OjMPLLxf. ■ J i-ipijv; i Pi.E -LONTIHUER 

US EATS F0m:.i[:>. HON Dt'i'.IE '-'ERir ] r.Rnoii a>n^t."t>-\'' ARRET, 8 

150 fl=49152 D=496sl 

le-e RBrtDA* IFflJ='-is"TWENc49 

!/ii PO!--:tri.M-2:56*rnT(n^256J POKEL+1 . INKR/25SJ' TJ=Tj+2 

130 F0RB=1T0LEN?FI*>-1 

130 P0KER.HSCU1]D*<R*,B. Ij) 

200 r=h+i 

210 NEXTB 

i-jit Pi-icfO.fi'L.r.- PIGKT*<«*,1))+128 

230 A=fl+1 GOTO160 

240 

300 REM * TABLE DES NOTS-CLES * 

310 PEN * * 

Vv &■'■-■ f:j:.i!. ;.jii:.:.i: | NFO, ENTKEfc.£NTS£ DIM, LIT, MET. VH-EN.EX. .Sl.DBINFO 

330 DflTR VR-&/P.RSP.fi'En,STQP,SELOH,HTT. .kR:j[,.=. ! ii.iVP -!U-,Vl z E"E" 

340 DATA ECRITlt.ECRIT CONT -L ISTE .ft-,: lip, VR . C".iv f <f , - L^IL -..-- : - ":: . -_?■' "-l 

350 DflTR V£r.: 7 . fi-i.E^' Ml.OR'i ■ HO:-,-, iftUTE. +,-.*./, T, ET-PU. >. = . v . SGH, EHT 

360 DATA flBS.SRU,ML,PO&.RC,HRS.|.ur,.E>:P-C[.'S..^lN, IHN. RTN LMEN, LONG, CH», VFIL.fiSC 

370 DflTR CRR».Gfl*.DR*,SL>l»,VA,l! 

3B0 R«49721 

390 PERDU* IFB*""9-TMENPOHEfl.0 GOTMBB 

410 IFLEN(Ft*) = lTHEMP0KEfl,FlSC(R*> + 128 B0T04 

420 FGRB=1T0LEN<R*J-| 

430 PCKER.RSC<r1IU»(R«,B.l>> 

440 R-R+l 

450 NEXTB 

460 PQKEfi.flSC<RIljHT«R*.I))*12B 

net fi=R+] 0010390 

49^ ' 

--V J RErl * S/P POUR MESSRCES fl'ERREUR * 

510 REM * * 

>:i 1JRTH 139.16,2,49.58.138. 10. 170. 1S9. 251. 193.133.34,189,252,193.133.35,32.204 
f30 DRTPl 255,169.0.133,19,32,215, 170. 32.. 69.. 171, 160. 0,1 ??. 34. 72, 41, 127. 32- 71. 171 
140 iWTR 200, 104, 16, 244, 32, 122- 166.. 163, 76, 168,196. 32, 3B, 171, 164, 58, 280,240,3 

J0 DBTfl 32,194,189.169,119,160,163.32,30,171.169.128,32.144.255,108,2,3.-1 
5^0 R»43977 

-3 RERDE 1FBO-1THENP0KER.B R»R+1 OOTO570 




OMMODORE 



GOSUB 

RETURN 

REM 

STOP 

ON 

WAIT 

LOAD 

SAVE 

SIN 

TAN 

ATN 

PEEK 

LEN 

VERIFY 

DEF 

POKE 

PRINTS 

PRINT 

CONT 

LIST 

CLR 

CMD 

SYS 

OPEN 

CLOSE 



VASP 
RS-P 
REM 
STOP 

SELON 



SIN 

TAN 

ATN 

LMEM 

LONG 

VER. 

DEF 

EMEM 

ECRIT5 

ECRIT 

CONT 

LISTE 



RZ 
NP 



SGN 


SGN 


INI 


ENT 


ABS 


ABS 


USR 


SRU 


FRE 


ML 


POS. 


POS 


SQR 


RAC 


RND 


HAS 


LOG 


LOG 


EXP 


EXP 


COS 


COS 


RIGHTS 


DRS 


MIDS 


SCHS 



Malgrecesquelquesinconvenientsieprogrammeeslinteressanlpour 
ceux qui commencent a programmer en Basic et que I'usage de la lan- 
gue anglaise rebute. 



638 DflTR 48,3.76,243,166,201.255.240.249.36.15,49,245,56.233,127,178,132,73 
640 DflTR 160.255.202,248,8,200.185.57,194,16,258,46,245,290, 185.57,194.16,3.76 
650 DRTP. 239.166.32.71.171,208.242.-1 
660 R-S8055 

670 RERDB IFBO-1THENP0KEH. B ■ R"R*1 OOTO670 
«80 

700 REM » 
710 REM * 

720 REM * * 

730 DRTft 166.122,168,4,132,15,169,0,2,16-7,201,255,240.62,232,288,244.281,32 
740 DHTfl 240. 55. 133, B, 201, 34, 240. 66. 36, 15, 1 12,45, 201 ,63, 20B. 4, 169, 153,208.37 
730 BRTH 291, 49. 144, 4, 201. 60, 144. 29, 132, 113, 160. 0.132. 11, 136, )34, 122, 282,200 
760 DflTR 232.169.0.2.56.249,57,194,240,245,201,128,208,48.5,11,164,113,232,200 
770 ERTfl 153,251,1.165.231,1,240,54,56-233,56.248,4,201.73.208,2, 133,13,55,233 
780 DRTH 85,208.159, 133,8, 189, 8 ■ 2, 240.. 223. 197 8,240,219.200. 133, S51 . 1 , 232, 20B 
?3« DATA 240.166,122,230,11,200,185,56, 194. 16, 250, 185. 57 . 194.596,180-139,0,2 
600 DFfTR 16,190,153,253,1,198,123, 169,255,133,122.96,-1 
810 H=«30101 

820 REflDB IFBO-lTHENPOKER,Bfl»A-HGGTGe20 
830 

850 RE" * MESSAGE SPECIAL * 

860 REM • * 

970 DflTR 32,32, 69-B2, 92, 69,85-32, 0,-1 
6B0 R=58252 

39G RERDB IFB<^-1THENP0KEA, B A=R+1 .rjrjTOB90 
90S 

910 REM * S/R VERSION H.NGLRI3E * 

320 REM * * 

93P DflTR 16-3,139, 
940 DRTft 169.124. 
950 fl=58261 

i>60 REflliF IFBO-lTHENPrjKER.B R=fi+1 GC 
980 
000 nti-1 '.' "?-- ff VERSICU FRRNnfllSE 



■ 141,4,3,169,135, 141,3,3-1 
■lTHEMPOkEA,BA=A-H GOTDie: 



159 REM * MESSflSE D RTTEWTE 

10 REM * 

2% PRINT "D" F[lRftfelTO10 PSTNT NEf 

H FPIHTTBRtil. aB.iii jrfr.TRMI r-.r 



.-SO 



-:tukn 



PEM * i-lES.-r.RGE F1HRL * 

170 REM * * 

180 PPiMi-.-ja- PRiMr"TRp£Z 

ifG pp;m--^,'P 5«26! R:JL"^ VbK&lnn RNnlRISE' 

286 PRINT SVS 5-3292 PGUP VEPSIGH fPHUCfiiSt 



Suite de la page a 



, P pte« 



JSR STOCKE 



"5C2 


01 


00 


95C4i 


IIA 






#4 


00 


95C8: 






95CAi 


to 


27 


95CC! 


Rl 


62 84 


93CF; 


HA 


88 89 


f5D2t 


Sl> 


91 92 


'305; 


»3 




9SD6.I 






5,*98 


,*?A 


fSOAi 


OD 




?3DBi 


0? 


93 


95DD: 




93 


?5DFi 


m 


93 


?3Eli 


Hh 


93 


9SE3: 


CA 


93 


P3E7i 
95E9: 


12 


P4 


P5EB: 






?5EDl 


an 




93EF, 


49 


94 



747 TABCONV DA 



757 TABADR 



iNOMBRE DE COMMANDES - 
I TABLE DES ADRESSES DE 



COMMANDES 



R RET URN -1 
RQUITTER-I 
RRE STORE-] 



SYMBOL TABLE - ALPHABETICAL C 



ARR1 


=*93D1 


AUTOM 


'S959C 


AVI 


=*947* 


BASEV 


-S95FD 






BELL 


=*FBDD 




=S0200 




=!?2iS9 


CI 












C5 






=S927C 


CH 


=*24 


CHER! 


=59583 


CBER2 


=t958F 




=19580 


CHRGET 




CHR60T 


=*B7 


CLAVIER 


=*cooc 


CLREOP 


=tFC42 








=19518 


CRC2 




CRCALC 




csouti 


=*FDBB 


CURSEUR 


=*95F7 


CV 


-«25 


ECR1 




ECRU 




ECR2 


=*94FD 


ECR1S 


=»94CB 


EDIT1 


=*930 1 




=*9D 


FINLIGNE=*92D3 


FINLIN 




FINLIST 


=*92E2 


FLAG 


=*95FB 


FNDLIN 


=*D41A 


GET CAR 


-»9304 


KEYIN 


=*954E 


L1NBET 


=»DA(JC 




=tso 


LIST1 


=I?2B7 


LISTS 












LIST? 




LOUTR 






-J92B0 


M2 


=*929B 




=»92CA 


M0D1F 


=S9591 


MODIF1 


=»9593 


NCOM 






=S95FE 














PGM1 




RAJ1 


-I93E5 


RAJ2 


-*93F2 


RAJ3 


"S93FB 


RAJOUTE 


=*93DA 


RANNUL 


-194 7F 


RARR1ERE=I93CB 


RAVANCE 


=»9fliD 


RBLANC 




RBLCl 


-«937B 


RBLC2 




RBLC3 




RBLG4 


=*93AC 






REMP1 








REMPLACE=*931D 














RQUlTTER-*943n 










RST1 


=*9533 


RSTCRS 




RSTHIM 


=«F2SC 


RSUPI 1 


=SP4AF 


RSUPINS 






M=«943C 












=*9SiO 


S2 


-«955D 


S3 


«=»957F 


SAW 


=B95F9 


SA-JC 


»«95FC 


SET1 


=*9549 


SETCRS 


=«953B 


STK1 


-I94C4 


STCCKE 


»*94B3 


SUPP 


=*9557 


SUPP! 


-»9445 


TABADR 


=»?5DB 


TABCOM 


-*9SCC 


TABCONV 


=*93C2 


TAB I 


=S95BD 


TOKEN 


=S9295 


TR1 


=*94iC 


TR2 


=»9450 



5-5F3: ?£ 94 



779 BASEV 




—END ASSEMBLY-- 
ERRORS! 
1075 BYTES 



SYMBOL TABLE - NUMERICAL ORDER 


' 










CM 


-124 


CU 


-*25 


BASL 


=»2S 


LINNUM 


=•30 


LOUTS 


•*9B 


RAC 


-»9D 


CHRBET 


-»B1 


CHRGOT 


=»B7 


BUFFER 


=*0200 


PGM 


=*91DE 


PGM1 






-•92^5 


C4 






=•9240 




=•9252 




=•9269 


C5 


=*P277 


C6 


-•927C 


m 


=•9280 


LIST1 


=•9287 


L1BT7 


=*928A 


LISTi 


ztlll? 


M3 ST3 


-I92CA 


FINLIGN£=»92D3 


FINLIST 


=*92E2 




=S92E9 


EDIT! 


=•9301 


GET CAR 


-•9304 


NXTCOM 


=•9315 


REMPLACE=«93ID 




=»934B 




=•9340 


TRVCOM 


=*935F 


RREST0RE=*9371 


RBLANC 


=•9374 


RBLCl 


=*?37B 


RBLC3 




RBLC2 


=S935>D 






RDEBUT 




RFIN 


=«93BF 


RARR1ERE=$93CB 




=»93DI 


RAJOUTE 


=»930A 


RAJ1 


=»93E5 


RAJ2 




RAJ3 




RRETURN 








ROU1TTER=*9430 




1=»943C 


SUPP1 




RTRQUyE 




TR2 






-»944C 


RAVANCE 






=*9476 




=•94 7 F 


R2AP 




2AP1 


=*P4A0 


RSUPINS 


=*94A7 


RSUPI 1 


=*94AF 








=»94C4 


ECRIS 


=*94CB 


ECR1 




ECR11 




ECR2 


"•94FD 


CRCALC 


=«9S09 


CRC2 


=»950E 


CRC! 


=S95I8 


RSTCRS 


-•9524 




=•9533 


SETCRS 


=•9538 


SET1 






=«954E 




-•9557 


S2 


=«955D 


SI 






=*9S7F 


CHfRCHE 




























TABCONV 


=•9502 














CURSEUR 


=*95F7 


FINLIN 


=«95F8 




=«95F9 


COMPT 


=I95FA 






S(VJC 


=*95FC 


BASEV 


=«93FD 




-•95FE 




=scooo 






USERR 


=»D97C 


LINGET 


=«OA0C 


RSTHIM 


=»F2BC 


BELL 


=»FBDD 


VTAB1 


-»FC22 


CLREOP 


-•FC42 


CROUTI 


=*FD8B 



LES FLIBUSTIERS¥^ 



Vous etes le capitaine d'un vaisseau que poursulvent des 
pirates. Pour vous echapper, une seule solution, le couler 
Mais attention, lui aussi peut vous couler. 

Michel DIAZ 



Materiel 

Ce jeu est ecrit pour ORIC 1 . version 48 Koctet II se presente en basse 

resolution sauf lors de tir sur leS pirates et lors de letablissemenl de la 

De ro dement du i eu 

La partie sejoue sur unesurface illimitee repert 

X et Y Ces 2 axes sont gradues positivement 

des X, et vers le bas pour raxe des Y. 

II est possibleque les ooordonnees representant les 2 batimentssoient 

negatives Lesous programme tracant la carte, entiendracomptepour 

placer ses axes referentieis. 

- deplacement 

Vous vous deplacerezle premier II suffitpourcelade taper lecapchoisi 



(une rose des vents vous aiderai, puis [return] le micro calculera voire 
vitesse en (onction de votre cap et de voire etat de voilure Par vent ar- 
riere vous filerez 16 nceuds face an vent, votre batiment cale. Le vent 
vient toujours du nord Apres votfe deplacement, le pirate sedeplace 
Son cap est toujours compnsenTre45°et 315 ° pour ne pas caler Son 
cap est calcule en fonction de votre position. 

* sill est a plus de 250 metres, iivient sur vous defa con a serapprocher 

* si il est a moms de 250 metres, il pivotera de facon a pouvoir tirer 
Rmq:Achaque coup, on vous indiquera les positions des deux bateaux 
amsi que leur cap respectif 

- tir 

Un batiment ne peut tirer que si son adversaire se trouve dans ses an- 
gles de tirs L'angle sous leque! on peut tirer couvre 90 ° sur babord et 
tribord, les 2 secteurs reslants etant des angles morts 
Tir du p irate 

Si il £3 en bonne position, le pirate tire sur vous Leresultatdu tir vous 
est indique sur I'ecran Je vous le rappelle 

-s'il vous rate, alors il va se rapprocher En effet ses chances de 
vous toucher sont inversemenls proportionnelles a la distance vous 
separant 



- II peui vous couler directement 

- II peut toucher votre voile vous perdrez aiors 10 % de voilure et vous 
vous deplacerez plus lentement 

- II pent toucher votre equipage vous perdrezalorsl5%d'equipage,et 
vous compromettez vos chances de gagner s'il y a un abordage 

- II peut toucher votre coque vous perdrez aiors 20 % de coque. 
Si lun des 3 derniers tacteurs est a vous perdrez la partie 
Votre tir 

Pour que vous puisstez tirer il faut etre a - de200 metres de la cible et 
qu'elle soil dans vos angles de tir 

Vous accepterez le tir en appuyant sur F quand vous verrez "F = Feu" 
On vous mdiquera la distance a la cible, et on vous demande la hausse 
des canons Entrer un nombre puis return 

Vous verrez sur lecran vos 2 bateaux se tracer Le votre est celui de 
gauche (il est fixe). I'autre est celui des pirates, il se trace suivant la dis- 
tance vous separant : 

- si distance supeneure a 60 m, on a une echelle 1 

- si distance inferieure a 60 m. on a une echelle 3 

Voussuivrez votre bouletsurl'ecran Leresultatdevotretirvousserain- 

diquer sur I ecran. 

Vous pouvez le rater, le couler directement, toucher sa voile, sa coque 

ou son equipage 

Labordage 

II y a abordage si la distance est inferieure a 10 metres. 



35 GOSUB 55000 

48 C1S:P0KE6I6.]2:PR1NTiP 

£ NOM DE UOTRE BATjnENT-' 



■*L6 "THEN 



= "DU " 



- ■U» = ,, U01LURE i "!E«-"E 
" U0ULE2-U0US UOI 



»CN«,3)ELSE Ri 

53 CI" 'COQUE 

QU1PAGE; ■ :D»- 

55 PRlNT:PR|NTCHR«C130)" 

R LA CARTE ?' :GETA» 

5q ie ft»="o-TnEHGOsua«aaea;GDT06a 

5? IFA*="N'THEN60 

SB G0T055 

B0 CLS:P0KE 48041 , 129:PRrNT" C0RSA1RE "] 

'ABC22J;N* 

62 PRINT- ;E«;£n;O*=PLCT2l,l,E«rPLOT30 
.I.STR«IEJ)-" "*0* 

63 POKE4S093. 2 !POKE4B099, 6 ^PDKE4B1 II , 2 

64 PRINT' - iU«Jurl;0*;Pl_0T2l . 2,U*!pLOT30 
,2iSTMtUJJ*« -tO* 

65 POKE4BI33.2^PUKE48l39,6-P0(tE48!5l .2 
86 PRINT" ■ ,i*;Cn;O«;PLUT2i,3,c»!pLOT30 
,3,STR«1Cj].' -0* 

B? PCKE4B173,2:P0KE4B179,8;PDKE4B19],2 

89 PRINT -&os.j3 e0B00 :PRlNf :G0TD74 

70 PRINtCHR*U331" UOULE2 uDUS UOIR LP. C 



72 IFA*- N' THENGOSU8580e0:GOTO74 

'3 i3OSUB50000:GOTO70 

M IF Cn-erHENGGSUS 3708!GOTO38e0 

'5 if En<-0TMEN Gosufl3^3a-GOTaiaaa 

n If -'"-a Then 'iOSUB 375BiG0T0afl9B 



-POSITION "iff* I" 



iuiuRE,cnP'TfliNE'?-".;c 

PARDON 1 



=■ BfWRE f 



92 PR[N 
103 PRI 
EGRE5" 
1IB IF CN<48 OR CNJ320 THE! 

12a REfii** nouur ou joueur 

138 FOR T=J TO 4 STEP. 2 

■IBB THEN uN^CN*: 



CHW£13B'3 ICN-i" 
■-liSOTOta 



OTO I 
150 u 



iea*uj/i00:G 



■CH- 1 



»-Ul)>< /Wjj 

170 fl=(COSCCN«.0l74)) 

1B0 6=(5IN(CN>,0174)) 

150 IF CN<=38 Then x=X*(un*B: 

^GDT023B 

200 IF CN>33 HND CN<-I80 THEI 

r=T-(UN*A):GOTO230 
213 IF CNMB0 AND CN<=2?8 TMi 
l:Y=Y-ruN*A):G0'0238 
220 IF CN>270 THEN X=X>IUN*B. 

248 PRINTCMR*CI3 

UN*5);- NOEUDS' 

258 «En»*i nouur PIRATE II 

2G0 SF=0 :DX=INT(X1-X] 
270 DT-INTtT|-l) 
2B0 DS=lNTCSQR[COX-2)'IDT 
2B5 IF DX=0 THEN 0X^1 
290 IF DT=8 THEN 01=1 
300 A=01VOX;B«f>rNlA3 
320 B=INTCB«57.2957SJ 
330 IF OX>0 THEN 8=a»270- 
340 B^B 



-CUh 



I 'ESSE Cfrp: 



I 7M 



> THEN CH='55:G 



400 IF 0S<NN THEN B^B'CH 
4|0 REn*** ETuDE DU u£NT *** 

430 if a>48 then 450 

440 B=B*SISOT0 430 

450 IF B<328 THEN 4B0 

460 B=B-5:GDTD459 

470 IF DSCSB THEN B=8*CH 

480 FDR Tl=l TO 4 STEP 2 

500 REn*J* ttOUuT niCRO «** 

510 IF B<-180 THEN JN^B*3/1E0»UM/100:SC 

0538 

528 UI =8-180 :ON=f-IB0-un*3'250*utV 100 

530 «1=CCOSCB*.0174!) 



550 I 



i)90 FIND e<=]88 THEN XI 

[UNiftll :&0TD5S8 
3J180 AND B<=270 THEN X 



590 NEXT T 




"B- PRINT 


B88 RE***** 


RESULTfiTS *X* 


G05 1J0SUB5 


1000 


618 PRINTCMW 


:i32)iN«j" i 

li"/Y-"UNT. 


6Z8 PRINT 


■FT 


FRIT ROUTE 


Mi' DEGRES 






B30 Hn=INTi 


"■CM. 


•Q) 1 PRINT 1 


i "1NUTES)" 




65B PRINTCHR* 




HR»tl23l; I 


<-" 


ilNTCxni'V 


660 PRINT 


'FT 


FAIT ROUTE 


1 DEGRES" 


irR- 


•a 


Q70 Mr"=iNT: 


PR. 


■6):PRINT" 1 


"1NUTESJ" 






690 DXMNTi 


XI 


X1:DT-INTC1 



EST EN " ;CHR*U2 



l-fjaSF-HBOl 
B0 

708 Th=i4BSCCR-B: ^SF-0 

210 IF CR=B THENPRINTCHH*[130)iCHR»tl« 
I'lL U1ENT DROIT SUR N0US1C 
nP'TftlNE" 

720 PRINT: PRlNTCHR«U31);"-DI5TftNCE ' 
Si METRES" 
722 GOSUSS1800 
725 IF OS<-]BTHENG0SUB 428B.GOTO3B00 



738 I 
735 I 



DS < 



:lse lz-1 



EN CN-EN- 



CN<43 THEN CN-CN-H80UF CN>315 TH 

-B+13S P.ND Dsc-nn 
35 AND DS<-rf1 



740 IF CN>-B'45 ftNO 
THEN TJ*1;G0T0 ?O0 

741 IF CN<-9-45 AND CN>=B- 
THEN TJ'l :G0T0 7BB 

750 TJ-0 

760 PRINT :IF Tfl>-45 PNO TP.' 



.125);' 



TIRE!" I 



135 1 



.■■7B GGT0888 

780 REHIEI* TIR I11CRD **« 

7B5 SHOOT 

790 PT=INTI8B0'[O5*10))*iaT5 

800 TT = INrtRNDtn*99t.5} 

B10 FOB 1-1 TO 100:PRINT".":;NEXTI IPR1N1 

820 IFTT<-PTTHEHPRINTCHfl»(129)iCHR«C140: 

i-NOus sonriES touches" =expl 

ODE : GOT 0849 

>RINTCHR»{13I)i'lL NOUS S RhTE.CP.PH 



A1NE :PRIN' 



IN-45iIFNN<l 



88THENNN-: 

831 GOTOBB0 

B40 IFTT>-PT/2flNDTT<-PTTHEN F=l 

B58 IFTT>-PT/4flNDTT<=PT-'2rHENF-2 

860 IFTT>=PT'B HND TT<=PT/4 THEN F-3 

8?0 IFTT<-PT^B THEN GOSUB 3500 'GOTO 380 

a 

875 ON F GOSUB 2800,2100,2288 

880 IF CJ-BThENGDSUB 3550 GQTO3808 

890 IF EJ<»BTHEN GDSUB3S00iGOTQ3B00 

900 IF yj-BTH£NGOSUQ 3650 1 GOTD3800 

905 IF TJ"1 THEN PRINT"NOUS POUUONS FAIR 

E FEU!' :PRINT:G0T0 915 

918 PRINT DESDLE ! CP.P' THINE" :PRINT" NOU 

S NE POUUONS FflIRE FEU" 

912 GOSUB518B8 

913 G0T078 

915 PRINT" F-FEU ":&ETPI:JF fl»<>"F' THEN 

GDSUB50eee:GQTG70 

928 GOSUB50a08:PRINT"-DISTflNCE fl LO C1BL 

E ' ,OS:PRIHT 

938 PRINT' -H.P.USSE DES CeNDNS I , 

568 REnill TIR JOUEUR *** 



970 C 



iu.sa:i 



975 KN=eOS(AN)-TN=T H NCHN) :Q=a 

988 HIRES:PRINTCHR*(17):Ll=I:K2=BiC 

SUe408B 

985 Ll=l :X2=DS:0-5:G0SUB4Be8 

998 CURSET 28,159,1 

995 L3=0 I SHOOT 

1800 FOR XX^l TO 1000 STEP 3 

1010 rY=lNTC- B2* G*rxx~2)'CU-2i*tK 

1038 OC=INUnS-XX):rLS 

1040 uu=rr*3*L2 

1B60 CURHOU L2t3,CT2-YY)*3*L2,l :ulfll 

1070 Yi=rY:L3=L3+3*L2 I CURHOUB , 0, 

1088 IF TT(=B OR L3>215 THEM1090 

1982 lFL3i>=rDS-2)*L2ANDL3< = C[jStl)*L 

U<=32P.NDUU>-8 ThENQ=5:G0T01 

140 

I0B3 IFUU>150 THENP*-"TROP HPUT' :CU 

Bi 1B,0:CL=9;GO5UB78B0:UAIT5 

BBiG0T0I158 

I0B5 next xx;cls 

1090 IF DC>=7 AND DC(=12 THEN Q=l 

1100 IF QC>12 DR DC<-1B THEN D=2 

1118 IF DCC7 AND BO-S THEN 3=3 

1120 IF DC>=-)0 HND DC<2 THEN 0=4 

1140 ON Q GOSUB 1200. 1258, 1300, 1350 



TCHR#il7];G0TQ55 
1198 REMtt* RESULTflTS 1 
;2B8 EXPLODE ^FDR 1 = 1 TC 
1282 CURSETii_2*K2-]7).l 



ORIC1 



1286 P*-" TDUCHE SOUS Lfl LIGNE OE FLOTTfl 
I 208 CURSET0,70,0IFII.LB,l.3:rL=35.GOSU87 



i ELSE CURSET 



1283 F 



= ,tflp" 



S:G0T038B8 



1213 CURSETa,B5,0:F 
30,65,0:GOS1JB7000 

1228 Lt-a5>K2-06iBBBOB48BBiC 

1250 P«- "PLPOUF (' 

I26B CURSET 0,7H,0;FILL B,l,4 

1270 CURSET 70,70,0:CL=8:GOSUB700B:CLS 

12S0 PRIMT:PRINTChRsll34J' ESPflCE POU 

1730 RETURN 

1308 P*=» m L0QUE UIENT D'ETRE TOUCHEE" 

: EXPLODE 

1305 Cn-Cn-23 CURSET 0,7a,0:FILL8,1.2 

1310 CURSET12,7B,0:EL=29:&GSLI8700e 

1328 CLS^PRINT:PRINTCHR*CI341" ESPflCE 

POUR CONTINUER" 
1338 RETURN 

1358 P*-" SON EQUIPAGE EST TOUCHE :EXPL0 
DE 

1355 EPT=En-15XURSET0,70,0iF|LLB,l,3 
1366 CURSET28,78,0iEL-24!&DSuB7000 
1370 CLS:PRINT:PRINTCHRt!l34)" ESPflCE 

POUR CONTINUER" 
13BB RETURN 

1400 P*=" QN P, I0UCHE SES UOILES- =EXPLOO 
E 

1 4i a un-un-- 1 1 cuftSETa ,.'0,0 ;f iu.8, 1 - 6 

14-28 CURSE T20. 70, 0:CL-23.-GOSUB78B0 
1425 CURS£TL2*K2-10, 120,0.F ILL40-UU, 1,12 
1430 C-LS!PH[NT!PRINTCHR*tI34)" ESPACE 

POUR CONTINUER" 
1440 RETURN 

1998 REPI *** RE5ULTAT TIR 1JCRO «« 
2000 PR]NT:PRINTi:.HR*U30)."NOS VOILES ON 
T ET£ TOUCHEES" 

2010 UJ=UJ J8:P1.0T3B,?, " "-SfRtluJ! 
2028 RETURN 



4050 CURSET I 

40B0 NEXT I 

4070 FOR J =5 TO STEP 

4080 CURSET L2*K2. 119*1 



i2+L,l:rjRP,w 1 



Ji«i»,t* 



218B PRINT 'PR 


INTEHR*l 


i3a)i"LES HOrmES so 


NT TOUCHES" 






2110 EJ'EJ-15 


IPLOT30, 


1,- "1STR*IEJ) 


21 2B RETURN 






2200 PRINTER 


[NTCHR«( 


]30)i"ILS OUT TOUCH 


E NOTRE COQUE 






2210 CJ-CJ-20 


:PLOT30, 


3," "*STR*(CJ) 


2220 RETURN 






3580 PRJNTCHR' 


1(128) it 


^»C140)i-C'EST LA 


F]N,C.PP'TP1NE 






3505 PRINT :PR 


;ntchr«[ 


I29);fHR«ll4Bll" N 



OUS COULONS" 

3518 RETURN 

3548 RET1 *** CC11PTEURS JOUEUR *** 

3350. GOSUB5000a.'PRJNTCHR»tl33)"CflP'l 

.LP. COBUE EST UNE PPSSOIRf 



EXT J 

4030 NEXT L 'RETURN 

4208 REM *** hSOROAGE *** 

4220 GOSUB 50008 

4030 PRINT:PR|NTCHR»C134);' 1LS SONT TOUT 

PRES,CflP'TAINE' 
=240 PRINTCHR«tl29) ;■ C'ESI L'HBORDPGE" 
:WPJT50B 

4250 HIRES:PRINTCHR*ll7):CuRS£T8,78,0iFl 
LLB, 1,1 

426B p«s« «*** A9QRDP.GE **«*" 
4270 CURSET68,7B,0:Ck.-19:GOSUB 7800 
4280 L2-liul^l :K2-87-O=0iGOSi,i i .0 
4230 K2-107:D-0:&OSlJ84800:p=0 
4300 CURSET10B, |49.0:FH.L4,1, 1 :CUR5£T|20 
,Ma,0:FILL4,l,7 
4310 CURSET114,149,0:CHAR96,a.l 
4340 IF EJ'EPI THEN 4400 
4350 IF EJ<EH THEN 4500 ELSE 4600 
4400 STaRSDIDMF ST>.5 THEN 4450 
4420 CURSET 0,90,0 :F|LL8, 1 ,4 
4430 P»=" NfJUS SOITIES OEBOROES.C'EST LP. 

4440 CL-35:CURSET7,9B,B:G0SU9 7000^GOTO 



INE" 

4470 CL=34:CURSET 7.90,0=GOSUB 7000, GOTO 

3OB0 
45BB PI-" ILS SONT PLUS NOOBREUX. flflHM" 
4585 CURSET 0,90,8:F|lL B.1.2 
4510 CL^38;CURSET 18.90.8 ^&0SU9 7808 :G0T 
□ 3800 

4680 P*-" CHP'TfllNE.NOUS LES flUONS REPO 
USSES" 

4610 CURSET a,3B,0'FlLLB,l,5 
4620 CL-36;CURSET 6,90,0=&OSUB 7808 
463B P«r- ]lS SONT NOS PRISONN1ERS' 
4640 CURSET 8. 180. 0:FRL8, 1,5 
4B5B CL'25iCURSETI0, 100,0:&OSUB jeW-baT 
03800 

6998 REH**x ECRITURE EN HIRES **■ 
7000 FOR J-l TO Cl :CURr>OU6.0,0.CHPR PSCl 



11D»[PI 



J "RET 



11NTENHNT.1L FflUT F 
NOUS 



356B PRINTCHRSl 
UIR LE COnBflT": 
3570 paj«TCMF«12S)JCWM 

SOraiES BflTTUS' RETURN 
3600 GOSUB50000 :PRINTCHR«( 13) ) CAP' TA1NE 
,N0US SOflplES LES 2 SEULS"iP 
RINT 

3B10 PRINTCHR4C131J" SURUIUHNTS. :PRINTi 
PRlNTCHR»r,131)"NOUS SOMrlES 
HORS DE COrlBAT":PRINT 

I860 PRINTCHR«[129];CHR»CI40);-' ET 

A LEUR HERCI" ^RETURN 

3623 PRINTCHRt(l29);CHR*tl40)i" ET 

fl LEUR nERCI" 'RETURN 

3650 GOSUB50BBa;PRINTCHR»Ll30)"CAP'Tfl!NE 
,U0S UOILES SONT DETRU1TES" 



3668 F 



1"N0US NE POUUONS PLUS 



39999 


REM *** CARTE **t 




40000 


IFCX<0ORXl(0)flNOiY>=0FiNOTl 


>=0JTHEI 


40010 


IF ( T <0ORY 1 <0)ANDCX> ^0ANOX1 


>-a]THEi 


43800 






40020 


IF rx<0ORXK0)ANO('(0ORYK 




000 






HIRE5=PRINTCHR»C171 




41010 


CURSE T0.0,0:F|LL 208, 1,2 




41020 


CURSET24,?,8:F1CL193, 1,4 




41830 


CURSET31,9,l:DRAU285,0,l 
CURSET3I,9,1.'ORAU0, 187,1 










41858 


FORI=5BTC20BSTEP5fl 




41060 


CURSETI'31,8, I--ORALI8, 198,1 


:N£XT 


41078 


FORI-50roi50STEP58 






CURSET30, I .9, 1 :DRAU20e,8, 1 


:NEXT 




PPTTERN 255 






CURSET18,0,0:CHAR4B.a, 1 




41108 


GO5UB45000 





3B70 PRINTCHR*(129]iCHR«CI40)i"[L FAL 

E RENORE" :R£TURN 

3638 REN *** CCflPTEURS nICRO II* 

3700 GosuBseeaa-pRiNTCHRtcisiii-cAP'T 



1130 Pt^SfRIU'F3I53i :°I=H1D« 

1140 CL*L£N(P*):CURSET5B*I>13 

1145 GOSU87B0B^NEXf 

1158 F0RI=1T03 



3735 PRINTCHR4C 


iSD'LEUR BATEAU EST HORS 


41160 


CURSETB,6tI*50.3:P«=STR*lI*F4I50): 


□E COMBAT" 




p*=niD*iP* . 


371B PRINT^PRIN 


"CHH*()23) i CHR«[ 140)1 'ILS 




CL=LEN(_P«) :GDSUB7808*NEXT 


SE RENOENT" 




41180 


CURSET28'INT(X|vF3),INT(Yl^F4)*5,8 


3728 PRINT :&OTO3808 


:CHAR 


j 14,0, 1 


373B GosuBsaaea 


1 PRINTCHR»(I331i CAPTAl 






NE,.":PRINT 








3733 PRINTCHRK. 


33) , 'LES PIRATES ONT ETE 


41230 


PR1NTEHR*[129);n«;" (t) X=";INT[X) 


0EC1MES" ^PRINT 








3735 PRINTC.HR*C; 


29) ;CHR*C14B1 i"LE BATEAU 






EST A NOUS" 




'XI);' 


'Y^-IINTETIJ- 


374B PRINT :aaTD: 




41228 


PftlMTCHR*! 134J" ESPAC 


3750 GQSUBS00B0 


PRINTCHR*[I32) i"CAP'TfllN 


E POUR CONTINUER" ; -GETA« 


E.." 




41230 


TEXT :PRISTCHR*( 17) -RETURN 


3755 PRINT:PRIN' 


CHR*C132) ILS N'DNT PLUS 






0£ UO 1 LES- 










CHR4CI29) ^HR*(140) rlt-S 




CURSET24,7,0:F1LL193, 1,4 


SON T PERDUS" 






CURSET31 ,9,1 ^ORflU208.8, 1 


3770 PRINT :GQTQ 


3300 




CURSETI35,9,l:DRfliJ0. 189,1 




1 REJCUER *" 




PATTERN 15 


3880 PRINT-PR1N1 


:PRINT"UDULE2-U0US rejou 




FOR[=0TO208STEP50 


ER- 




42078 


CURSET3S-I-I.B, 1:QRA!J0, 190,1 -NEXT 


3B1B GET A*: IF ( 


i*="a"THEN RUN 


42080 


FOR 1=50101 50ST£P5B 


3820 TEXT^PRJNTC 


:HR*C17):CALL555:END 




CURSET30, 1-9, 1 :ORAL12B9,0, 1 INEXT 


3998 RET! *** DESSIN BATEAUX *** 










42110 


GOSUB45008 ■ 

Suite page 12 


4810 FOR L=0 TO 


LI STEP 5 





JEU DU 5000 



Les jeux simples sont souvent les meilleurs ! Encore un 
bon exemple avec ce jeu du 5000 qui vous occupera 
certainemenl un bon moment (a part la frappe des lignes 
du programme !). 

Gilles TONDON 

REGLE DU JEU 

Joueurs 10 maximum (1 a 10) 

Materiel : 6 des 

3ut du jeu !e vaiqueur est le premier qui reussit a marquer 5000 points 

- Seuls I'AS et le CINQ ont une valeur I AS vaut 100 points 

le CINQ vaut 50 points 



- Le brelan vaut 3 AS 1000 points 

3 DEUX 200 points 

3 TROIS 300 points 

3 OUATRE 400 points 

3 CINO 500 points 

3 SIX 600 points 
Tout brelan doit confirmer le coup suivant pour etre valable. en se ser- 
vant des des restant sur le tapis , il faut faire une entree de 750 points 
Ensuite lejoueur peut avancer de 50 en 50 points s'd le desire 
Le jeu se deroule ainsi . 

- Le |oueur jette les des sur le tapis etenlevetousJes AS et les CINO 
realises II rejoue les des restants et recommence la meme operation 
pour totaliser le maximum de points 

- Lorsque le sixieme de a ete joue et qu'a chaque tour ii est sorti un AS 
ou un CINQ, lejoueur a la faculte de reprendre les six des etdeconti- 



nuer a totaliser tl marque les points ototenus a la seule condition de 
sortir a chaque coup un AS ou un CINQ Dans le cas contraire, il perd 
tous les points de son score mais non les points de son capital. 
- Lorsque le joueur joue ses 6 des et qu'ii ne sort ni AS ni CINQ, il passe 
son tour. 

Suite lorsque lejoueur fait six chiffres differents (1, 2. 3, 4, 5, 6), il mar- 
que 1500 points, sans avoir besoin de confirmer sa suite. 
Handicap : si un joueur sort un carrede deux, il perd tous ses points, y 
compris ceux de son capital, et recommence a zero, avec obligation de 
faire a nouveau 750 points, pour pouvoir entrer dans lejeu. 
Deroulemenf dujeu 

t** phase : lordinateurjoue tout seul et il ne vous donne la main que 
lorsque vous avez reussi votre entree de 750 points. 
2' phase vous avez la main, vous pouvez alors 
1 > soit rejouerlesdes restants sur le tapis, alorsappuyezsur la toucheR 
2) soil ajouter les points de votre score a votre capital. Alors appuyez 
sur n importe qu elle touche SAUF la touche R 
(IMPORTANT : ALPHA LOCK doit etre enfoncee) 
3 s phase vous avez reussi un brelan, ace moment la, c'est lordinateur 
qui se charge de rejouerlesdes restants pour confirmer ceDreian. 
Important lorsque I'ordinateur vous donne la main.il insorit sur I'ecran 
cette phrase : "C'est a(nom du joueur) dejduer !" 



90 PRINT 






l'X' INPUT JOUEUR*! 


Jl 


12B NEXT 


j 








■0000000000000303 






'OO0000000000C0CO 






'0303-1 


160 CALL 


CHARMS?. 


'coco-i 




CHARM 41. 


■00003C3C3C3C") 








190 CALL 




'007378787800030? 


























240 CALL 


CHARMS';. 


' 003C 3C 3C 3CO 3 C 3C 


250 COLL 


CHAR 1 154. 


■3C3C003C3C3C3C"> 






' O0000 0OO0O0 OF F F F 


:i:< CALL 










•0303030303030303 






cocococococococo 


30O CALL 


COLOR (3. 2 


































J60 CALL 






370 Z"7 














100 CALL 


HCHOftru.n 


112.25) 



T\-99/4* 



950 IF K-NBR+1 THEN 1260 



650 PRINT " CE 

660 PRINT " 

FOR P=l TO K 



30 print jouEURiu);"="iHiscrjf«en 



1090 UN=UN*1 

1100 CALL HCH0RM4.Z.15O1 

1110 CALL HCHARII4, Z+1.149) 

1120 CALL HCHARI15,Z,146) 

] J .10 CALL HCHARM5,Z+i,157) 

1140 CALL SOUNDM00.44O.O) 

1150 COLL SDUNDMOO.SSO.Oi 

1160 CALL SDUNDMOO.440.Ol 

1170 CALL SOUNDUOO. 660,01 

1130 CALL SOUNDMOO, 880,0) 

I20O CALL HCHAR<14,Z,144> 




2420 GOBUB 2440 • 

2430 GOTO 2010 O 

2440 IF B >5 THEN 2460 t 

2450 RETURN 

24 60 B=3 







1250 RETURN 



B*S\C 



2050 CALL E 



ggQ NEXT I 

370 IP ¥=6 THEN 2520 

5BO IF X-0 THEN 1040 

590 IF UN>2 THEN 1960 

600 IF CIN>2 THEN 2340 

610 IF DEU'2 THEN 2190 

620 IP TRU'2 THEN 2240 

650 IF E»UA>2 THEN 2290 

640 IF SIX>2 THEN 2390 



1360 CALL HCHARM4.Z, 

1370 CALL HCHARM" " 

13B0 CALL HCHARM 

1-390 COLL HCHARM 



1470 CALL HCHAR(14,;+1,151> 
1480 CALL HCHARM5,Z,352) 
1490 COLL HCHARM5.Z + 1.14S) 

1500 TAIL SOUND (100,660,0) 
1510 COLL SOUND <10O, 770,0) 



AOEC "IS B;" OK IS) 




2640 FOR 1-5 I 



2700 SCDRE=SC0RE+] 

2710 CALL SOUND! 1C 

2720 CALL SOUND (K 

2730 CALL SOUND Ml 

2740 CALL SOUNDMC 

2750 CALL SOUND (It 

2770 EOTO 5B0 



2S20 GOTO 360 

2830 IF DEU>2 THEN 2880 

2940 IF TR0>2 THEN 2900 

2050 IF QUA>2 THEN 2920 

2S60 IF S1X>2 THEN 2940 



™-io se of:e -*COfi= -:■'- 



2280 E 

.;.:-=0 i<:LlFE=5CnRE** 
2300 QUA-O 



GENERATEUR DE CARACTERES 



Voici un petit programme qui vous permettra de creer 
tous les caracteres que vous pouvez imaginer sans aucu- 
ne difficuJte. 
UTILISATIONS : 

- Le deplacement se fait au moyen des quatre touches 
flechees 

-La touche centrale ainsi que le"C"permettentd'allumer 
ou d'eteindre un point de la matrice 

- "("reinitialise la grille 

- T pour placer le caractere au code ASCII desire 

- EXPRESSION donne le codage decimal tigne par ligne. 

Jean-Michel QUILLOT 



70 PRINT TA6(9)"TJ O.K. '"I 

71 ft»-lNk'EY»: IF A*-""' THEN 70 

72 IF A*<;"0" THEN BOSue 2O0lBQTO6fi 

eo tor 1=1 to e 



X-07 



89 FONTI(C0l= 



21 LINE120.il- 

22 NEKT:PSETC 




CANON 



■ INKEV*-"- THEN 9B 



C'EST NOUVEAU, CA VIENT DE SORTIR! 



COBRA, Q*BERT et 
PARKER 

PARKER lance cette semaine, 
sous forme de module deux 
logiciels pour ATARI : le cele- 
bre Q'BERT vous savez le 
drole de petit bonhomme qui 
se deplace sur une pyramide 
de cube et qui dit : "![+?" quand 
il se casse la figure. Et egale- 
ment COBRA, un jeu aussi 
connu qui met en scene un 



helicoptere qui se deplace 
dans des cavernes en lachant 
des bombes sur les fusees, 
les canons et les chars qui 
I'agressent. Deux Must ! 

NOUVEAUX LOGICIELS 
ROMOX 

Pres de 20 modules enficha- 
bles ROMOX pour Texas TI99, 
ATARI et VIC 20 viennent de 
sortir lis sont disponibles des 



le debut Mars chez les princi- 
paux distributeurs. Pour TE- 
XAS TI99/4A PRINCESS and 
FROG, une version amelioree 
de la fameuse grenouille qui 
traverse I'autoroute, ANT 
EATER, une fourmi aux prises 
avec des TAPIRS dans des 
souterrains truffes de rochers 
ecraseurs et d'oeufs explosifs. 
ROTOR RAIDERS qui met en 
scene une meute de souris qui 



ne trouvent rien d'autre a faire 
que de salir les couloirs du 
labyrinthe que vous venez de 
nettoyer et HEN PECKED ou 
vous etes le coq d'une tres 
belle basse-cour et vous en- 
tendez le rester. Un excellent 
logiciel pour apprendre a 
voler. 

Pour VIC 20, PRINCESS and 
FROG et ANT EATER, plus 
TYPO, un logiciel pourappren- 



DES LOGICIELS 
POUR CANON 

Explorez les etonnantes possibilites de votre CANON 
X-07 avec les quelques 40 programmes reunis dans cet 
ouvrage. Des programmes performants qui fonctionnent 
sur le X-07 de base (8 Ko) : calculs scientifiques : opera- 
tions sur les matrices, conversion de coordonnees, 
racinesde polynomes, integration, interpolation, etc. Des 
utilitaires : gestion de compte en banque, histogramme. 
impot. hard copy, trace de courbes, biorythmes, etc. Oes 
jeux: loto, poker, ardoise magique, un peu d'EAO, un 
super jeu d'aventures : le Tresordu Galion ettrois "gros" 
programmes qui necessitent une carte d'extension 4 K : 
Astrat, Tierce et Surfaces et Volumes. 

UN LIVRE SIGNS SHIFT EDITIONS ! en vente chez les 
distributeurs CANON et par correspondence. 

Sx 



Canon 



I-i 



JEUX 
ET 

PROGRAMMES 
ORDINATEUR INDIVIOUEL 



BON DE COMMANDE A DECOUPER OU RECOPIER 

A ENVOYER A 
SHIFT EDITIONS : 27, rue du GAL-FOY, 75008 PARIS 




- 20 FD. stranger \ 30 F D 






REGLEMENT JOINT 

cheque a ccpd 



dre en s'amusant (comme des 
fous !) a taper a la machine. 
Pour ATARI 400. 800. 600XLet 
800 XL. les memes logiciels 
sont disponibles : PRINCESS 
and FROG. TYPO, ANT EATER 
et egalement ATTACK at EP- 
CYG-4 une superbe bataille 
de I'espace avec un viseur 
tres special et tres efficace, 
FORTUNE HUNTER un jeu 
d'arcade et d'aventure avec 
plusieurs salles a explorer, 
combat avec scorpions, mon- 
tres et indigenes et meme des 
effete de ZOOM. SEA CHASE 



une bataille sous-marine avec 
missiles, bombes et mines 
TOPPER un Q'BERTSamelio- 
re et super-rapide, STARION 
un jeu de I'espace ou il faut 
explorer I'espace ou evoluent 
des machines bizarres dans 
lesquelles il faut s'introduire et 
enfin WHIZ KID un jeu educatif 
oil il faut deplacer un petit 
bonhomme qui tape avec une 
batte de polo sur les lettres de 
I'alphabet qui constituent un 
mot. Ces logiciels valent entre 
400 et450francs avec une no- 
tice en francais. ■ 




L'INFORMATIQUE 
AU SERVICE 
DESAVEUGLES 



Une premiere mondiale, pour une 
societe francaise : WODSTAR PAR- 
LANT La societe MICROPRO vlent 
en effet d'annoncer la premiere 
machine partante permettant aux 
non-voyants d'utiliser les multiples 
possibilites du Progiciel de traite- 
ment de texte WiRDSTAR (plus d'un 
million d'utilisateurs dans le monde). 
La solution retenue est d'implanter 
WORDSTAR sur un micro-ordinateur 
realise par une autre societe francai- 
se AXEL. I'AX. 20 el dutiliser un syn- 
thetiseur vocal FERMA Le systeme 



tourne sous CPM et MS DOS el peut 
etre implante sur la plupart des ordi- 
nateurs du marche francais offrant 
ces system es d 'exploitation. Ce 
systeme n'est bien evidemment pas 
reserve aux handicapes et pourra 
faciliter I'assistance a I'apprentissa- 
ge de la dactylographie, de la lecture 
et de I'orthographe et bien d'autres 
applications. On peut obtenir des 
renseignemenls sur ce systeme au 
Ministere de Nndustrie et de la 
Recherche, bureau de 1'aide si 
(556.33.61) 




DCS LOG ICI ELS POUR 0RIC, SUR MCSURC. 
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UTILITAIRE 



Ce programme est un utilitaire de 56 octets qui permet 
I'autorepeat du claviersonorise ou non.d'activerou non le 
mode sonore du clavier et surtout de pouvoir "bloquer 
SHIFT" et done d'utiliser les touches INS et DEL en mode 
autorepeat sans faire le desagreable va et vient entre 
SHIFT et la touche 



pC 



A500 




CLAUIER AUTQRt'PEAT 
SQNORJSE 



Mode d'emploi 

1)FaireNEW& — (-55 

2) Charger le programme Basic, entrer 
module memoire 

3) RUN 

4) NEW 



LE LOGICIEL 
DE LA SEMAINE 



Fabien FOJUD 



s depart selon votre 



SONAR ...sur TRS 80 




Enfin un programme de jeu pour TRS - 80. 
Celui que nous vous proposons cette semai- 
ne, bien justement intitule SONAR, est edite 
dans la collection "Les logilivres", chez Eyrol- 
les 

Le programme est fourni sur cassette, dans 
un conditionnement leger, pratique, et som- 
me toute agreable, ayant I'apparence d'un 
livre. 

Chaque face de la cassette, enregistree a 
500 bauds (vitesse de lecture du TRS - 80 
modele I) pour permettre son utilisation 
aussi bien avec un modele III qu'avec un mo- 
dele I. presente la version executable suivie 
de la version source, du programme. 
SONAR est un jeu d'action rapide ecrit d'une 
maniere tres compacte, en assembleur, ce 
qui permet de I'executer sur un TRS - 80 
modele I ou III nedisposantquede4koctets 
de memoire seulement 
En revanche, la version source du program- 
me necessite. bien entendu, un editeur 
assembleur, mais aussi et surtout, 48 koctets 
de memoire 

A cette condition, on pourra examiner, etu- 
dier voire modifier le programme a sa guise. 
En effet, ce programme est riche d'enseigne- 
ment pour qui veutapprendreouapprofondir 
I'assembleur, tant il comporte de fonctions 
que Ton peut utiliser dans un programme de 
jeu. Et si certaines instructions necessitent 
quelques eclaircissements, il sera toujours 
possible de se reporter a I'excellent ouvrage 
"Programmez vos jeux d'action rapide sur 
TRS - 80", publie par le meme editeur, oii le 
programme est abondamment commente. 
Lejeu consiste en un combat entre un navire 
de guerrequi evolue en surface en lancant ce 
qui peut etre des grenades sous-marines et 
des sous-marins qui defilent sous lui a diffe- 
rentes profondeurs et a differentes vitesses 
et qui, eux, larguent des mines montant vers 
la surface. 

Si les sous-marins se deplacent et lachent 
leurs projectiles de maniere "aleatoire". le 
joueur peut mouvoir le navire a I'aide des fle- 
ches - et *- pour eviter qu'il soit atteint, 
et essayer de detruire les sous-marins en 
lancant ses grenades, par la proue ou par la 
poupe, a I'aide des touches Q et W 
Les sous-marins coules rapportent 100, 200. 
300 ou 400 points selon leur vitesse. les plus 
rapides rapportant evidemment le plus de 
points. 

Au cours d'une partie, le joueur dispose de 
trois navires plus un navire supplemental 
lorsque son score atteint 20 000 points. 
Le nombre de bateaux restants, le score en 
cours de partie, ainsi que le meilleur score 
realise depuis le lancement du jeu, sont affi- 
ches en permanence en haut de I'ecran. 
Le jeu est entierement sonorise (le son le 
plus agreable est produit lorsque le navire 
est coule...). II comporte aussi une fonction 
automatique de demonstration ayant pour 
objet de montrer le deroulement d'une par- 
tie. Alors tous a vos sonars, et ne fattes pas 
de rapprochement trop hatif avec certains 
sous-marins evoluant. sans bruit, du cote du 
pOle : toute ressemblance avec... etc. 



10:REf1 AUTEUR 11. 
FOJUD FAB3EN 
20:REH PC 1500 
30:REI1 CLAUiER A 
UT0REPEAT SONO 
RISE 
40: INPUT "Adresse 
depart ";A:B=A 
50:FfjR C=1T0 56 
60;READ D:P0KE <A 

-1+0,0 
70; NEXT C 
80:Q=B;O.INT (A/2 
56J:D^<(A/256) 
-C)*256 
90; POKE <8,785B>, C 
;P0KE (&785C), 

100;CLS :SEEP 3; 

CALL B 
110:PQKE &.79D4, 8,55 
;END 
l 



I20:DATA 8,65, £.0], E. 
BE, RE4, 8JA, 848 
, 8,78, &4A, &50, & 
B2, 8,10, 8,89,602 
, 8.0D, &41, 8,40 

.130:DATA &10, 8,89, 8, 
0A, &EB, £76, 8>4E 
, 8,02, 8.B7, 8,0], 8, 
89, 8,02, &0D 

'40: DATA S0E, S4D, 8, 
01,8,89,8,07 

150: REH *BEEP* 

160: DATA &6A, 8.06, 8, 
48, £01, 8.BE, S.E6 
, 8.6F 

J70:REf1 *** 

180: DATA &BE, 8.E2, & 
4A 

190: DATA &B7, 80F, 8, 
89, 8,03, 8,B£, 8.E3 
, 8.3F, 8.F9, 8EB, 8 
7B, &0E, £40, &9A 



50C5: 
50C7: 
50CA: 
50CC: 
50CE: 
50D0: 
50D2; 
50D3: 
50D4: 
50D6; 
50D8; 
50DC 
50DE: 
50E0. 
50E1: 
50E2: 
50E4: 
50E6: 
50E8; 
50EA: 
50ED: 
50F0: 



LD A, 01 
CALL E41A 
LD XH, 78 
LD XL, 50 
CP A, 10 
1R HZ, 50D4 
XOR A, CX3 
LDI (X),A 
BIT CX>, 10 
JR NZ, 50E2 
OR (764E),02 
CP A, 01 
JR HZ, 30E2 
XDR A, CX) 
LD <X),A 
BIT (X),01 
JR HZ, 50ED 
LD UL, 06 
LD XH, 01 
CALL E66F 
CALL E24A 
CP A, 0F 



■50F2; JR HZ, 50F7 
50F4;CALL E33F 
50F7- RCF 

50F8;OR t7B0E>, 40 
50FC:RET 



CLAUIER AUTOREPEAT 
SONORISE 



PC 1500 



50C5 

50C9 

50CD 

50DJ 

50D5 

50D9 

50DD 

50E1 

50E5 

50E9 

50ED 

50F1 . 

50F5 ; 

50F9 : 



B5 01 BE E4 
IA 48 78 4A 
50 B7 10 83 
02 0D 41 4D 
10 89 0A EB 
76 4E 02 B7 
01 89 02 0D 
0E 4D 01 89 
07 6A 06 48 
01 BE E6 6F 
BE E2 4A B7 
0F 89 03 BE 
E3 3F F9 EB 
?B 0E 40 9AB 







Nombreux autres titres. 
Demandez notre catalogue 
12 pages couleur. 




Vous avez ecrit des logicie-ls pour micro ordinateurs 
si vous voulez etre edites contactez- nous. 




B-UFOPANIQUE = 



vous sllez devoir aHronie< 

ainsi que des ovnB qui fon- 



D - LE MANOIR DU 
Dr GENIUS: 140 F 

Excepnonnd'Armesvous 





17, rue Lamartde 75017 PARIS 

Tel. : (1)627.43.59 
Revendeurs, contactez nos distributeurs nationaux agrees : 
COTEFI :(1}567.00.37 INNELEC :{1)840.24.31 

: (1 ) 307.65.58 S.P.I.D. : (1 ) 281 .20.02 



ELLIX 



Bon de commando 
'VESA SHIFT EDITIONS 
lu Gal Fuy 75008 PARIS 



Verifie2 bien si le logiciel existe 
dans le type de materiel que 
vous demandez. 
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slocks dliponibles 
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au type de malerlel di 

COMMODORE 



secorTespondam 



Palsmmt * adrauar *v 



m do commanttn 



TUNNEL 



Ce programme est ecrit en Basic Etendu pour le micro 
TI99/4A (version de base sans extension) avec manettes 
dejeu. 

ReneMINAIR 

Regies du jeu : 

Elles ne figurent pas dans le programme, le volci 

- Lejoueurse deplace a t'aide de la manette n ,J 1 (ALPHA LOCKenleve) 

dans un tunnel represents en perspective Ce tunnel est en fait un 



labyrinthe dont il faut sortir avec un maximum de points. 

- Chaque pas en avant fait gagner 10 points. 

- Chaque pas en direction d'un mur sans ouverture ou en amere 
(mouvements impossibles) fait perdre 5 points 

- Le labyrinthe comporte des culs-de-sac qui peuvent. selon le hasard. 
faire gagner ou perdre de 20 a 100 points, puis vous renvoient au depart 
avec voire capital de points II est souhai table de visiter descuisde-sac 
pour augmenter son capital mais. attention, si Ion passe 2 foisdans le 
meme on perd systematiquement 100 points 

- Lejoueurnevoit que sa position mstantanee dans lelabyrtnttie mais, 
des qu'il a acquis 100 points, il a la possibility en appuyant (assez 
longuement.) sur le bouton TIR de voir lensemble du labyrinttie avec 
la position qu il y occupe (en rouge) et les culs-desac non visiles (en 
clignotant noir) ATTENTION le temps dobservation fait perdre des 
points etl'on peut revenir a sa position dans lelunnel en appuyant sur la 
barre espace 

- II y a 3 niveaux de jeu : 

1 - avec la lampe de poche et boussole 

2 - avec boussole sans lampe de poche 



3 - sans lampe de poche ni boussole 

- Le record ne s'affiche que pour les parties successives effectueesau 
meme niveau de jeu 

- II y a en fait dans le programme 3 labyrinthes (1 vert. 1 rouge, 1 bleu) 
choisis au hasard lors du lancement du programme. Tant qu'on arrete 
pas le programme, toutes les parties sont effectuees dans le meme 
labyrinthe quel que soit !e niveau de jeu choisi, ce qui permet d'utitiser 
sa memoire visuelle pour trouver la sortie 

- Lentree est toupurs au sud. la sortie toujours au nord. 

- Comrne il fait assez sombre dans ce tunnel, laluminositeduposte TV 
doit etre reglee Ires claire. 

- II est possible de changer ledessin des labyrinthes. car chacun deux 
noccupe que 2 lignes de programme ; 

n"l lignes 170et 180 
n ci 2 lignes 190 et 200 
n c '3hgnes210et220 
Ce jeu initialement plus ambitieux, a ete limite par la taille memoire. 




CDL0ft(B,M.M.9.L-.r. m.C'.O. ! l.n.n. !:,a,B, 1 7>, O, O, 14 , O, G 
COLOR ia.G.M.'y.B.M.l.j.G, IT, ll,r>.M.12,G.G,13,Q,e s 14,Q,e 
COLQR<B,ri,M,9,G,r1, lO.G.FI.U.G.M. 12.Q.G. 13,G,G, 14,0,0 
COLORia.n.M.f.G.H, 10,0,0, 11,G,M, 12,0.0. 13. G,G. 14, 0.0 
C0L0R(8,G,I1,9,G,I1, I0, 0,0, 11, PI, M. 12.6. G. 13.0,11.14,0.0 
COL0Rf8.G,M.<?.G,M.10.G,M.ll.G,IT,12,G.G,lI,G.G.14,G,Q 
COLOR (a.G.M.^.B.M, If. D.D. ll,B.M.12.G.G.l J.G.O, 14,0,0 



i COLL HCH0R(10,23,42): 



COLL HCH0Fm0,29 : 








, 11:" SENS INTERD 


10 P01NTS=PO 




-5 ii DISPLAY ATI 








FOR T-l rc 




:■ : : WF-KT T 


GOTO 1 1 20 
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lOlEROSe ALL: "TAP 



FXMAN 



Vous etes un glouton et vous devez gober un maximum 
d'oeufs en vous baladant dans un labyrinthe. Ici, le labyrin- 
the n'est pas bien complexe puisqu'il est reduit a fa seule 
ligne de I'ecran. 

Bruno OUDGHIRI 

Regie du jeu : 

Jusqu'ici tout va bien, mais des fantomes aux intentions beiliqueuses 
sont la pour vous empeeher d'avoir une indigestion, lis evoluent ou 
plutot il evolue. cardans la version que je propose il n'y en a qu'un. done 
il 6volue dans le "labyrinthe" avec votre glouton (en general plus rapi- 
dement que vous). 

Heureusement, a certain moment un "+" peut apparattre qui va vous 
permettre de retourner la situation. 

Lorsque vous en avalez un, vous avez la possibility (pour un certain 
temps) de del ruire votre ennemi. 

II peut eglement apparaitre des * qui sont en fait, des bonus. 
Vous etes le "<" et vous pouvez vous deplacer a I'aide des touches "A" 
(vers la gauche) et "/" (vers la droite) Un mot en passant, I'ecran est cir- 
culaire. Arrive a un des bouts de I'ecran, vous pouvez passer de I'autre 
cote. Si vous etes a I'extreme droite de I'ecran par exemple, en conti- 
nuant d'avancer vous vous retrouvez a lexeme gauche et vice versa. 
Le fantome represents par un"O p 'etdevient "(If lorsqu'il est vulnerable 



(de plus il est moms rapide) 

Les "." vous donnent 10 points. 

Les "*" vous donnent entre et 36 points 

Les "+" vous donnent entre et -36. He oui, malgre le gros avantage 

qu'ils vous apportent. ils vous enlevent des points. 

Les valeurs "(D valent 100 points. 

Encore une chose, le temps est limite, mais une partiepeut durertrfes 

longtemps. En effet, si vous arrivez a detruire votre poursuivant, vous 

obtenezun bonus de temps. Celaevite une fuitede voire part qui vous 

serait profitable car le fantome seme sur son passage des ceuts 

(points) 

Precisons egalement que le fantome est plus rapide que vous, mais 

perdcet avantage lorsqu'il devientvulnerable.Danscecas.il est meme 

plus lent que vous. 

Pour utiliser ce programme, i! faut se mettre en DEFH3. Avant lapremie- 

re utilisation, faire SAC et STATO (le programme utilise les memoires 

statistiques pour memoriser le meilleur score} 

Certaines lignes necessitent la suppression de tous les blancs et les 

parentheses ne sont en general pas refermees.^ 




FX 702 P 



!V'flC:MFlITe:PRTCSR7;" 

PRE Mf:FORI=BT0!Si 
R(IWB:HEXTl:B=ll:T 



";:C«="0":C2t='8':|) 

=b 

3 0=19: P=23: 6=36: 
C=.9:V=18 

4 FOR 1=1 T8 99:« 
=HS6H en 
5IFRBHt>C:T=!.3:Z=RB 
HM-»:B<BBS>!=«:P 
MWSBMQKHE 
)j 

ftTFRBS <B+"H-9i9;PRT 
CSR B;V;:fl<B>=U:|= 
BWPRT CSR BiflfiM 
); 
7 IF fl=M B!6SB 



S1FKEY="/": PRTESRfi; " 

""«=»»i-o«iHr((fi*i 

i/»:P«ICSefl:*C::B3B 
78 

";*fltH»IHTd'B+V 
>/0;PRTCSRfl;">"i:6SB 
78 

IB HEXT I:aOT6 55 

59 IF K8:I=I'2:T= 
|:B=e:S=S»HB:RET 

55 PRT CBR H;"0";: 
S=iST SiHflIT 58HF H 
KS1SBC :STflT S 

i8 PRT :PRT * P«R 
TIE TE8MHEEVSC0RE 
"IS!" HIBT;IR:E» 
78 S=Stfi(B):T=TtINT 
BBS TKSSH B(fl)-l:B 
(9)=.l:IF fitlBT B;RE 
T 

38 GOTO 58 



DICTEE MUSICALE 



Avez-vous de I'oreille ? 

Non ?... Ceprogrammevousmontreraquevoussous-es- 
timezvos talents ! 

Oui ?... Alors epatez vos amis et retrouvezl, 2,3..., peut- 
etre jusqu'a 7 notes fournies aleatoirement par votre T07 
et ce, jusqu'a epuisement du musicien. 
Le crayon optique vous permettra de positionner les no- 
tes sur une portee !!! 

Chantal DALLE 




TO 1 



ST. 14; LIl-IE-Oe..^.- LfNE-<2e,140^ 

i F'ETFrnjVEP ", 

'"VOUS DEVEZ MHWER'^N.-NOTt'!.'". COLOR 0.? 
THEM PL«¥ B* GOTO 360 



360 



3 .'ELSE LIMt' K+.?.3.Y+1£ i- X+33.Y-40.' 



J' EH CflS D£ REUNITE. . " 



i fop i=i ro ii 

t RERO NV I ■ 

i MEKT 1 

i DfiTH O4M.04REO4MI,O4Fft.ri45.f)..i: 

i CL-i SCFTITN 13,7.7 



I t'ES'ilH [>E LFr FOPTEE ) 



i ij4-:.r-Q5l.'i.i i'^PIr . C.i?M E WFfl 



ANAGRAMMES 



Voici un jeu de logique (en fait un casse-tete) qui en fera 
reflechir plus d'un pour trouver la solution. II convient aux 
groupes comme aux solitaires. II consiste en un mot a 
remettre dans I'ordre alphabetique la combinaison que 
I'ordinateur a choisi. A cet effet, pour rendre le jeu plus 
interessant et plus complique, certaines regies particulie- 
res ont ete incluses au deplacement d'une lettre. On peut 
rencontrer six situations. 



IvJO v,Es*R HOWE 



S? j"c'!"..-, '' S0 pfi,INT " "■ LOCATE 16.ie'FRIMT" ". LOCATE £7. £0 PRINT" '■ . 
4;iO :. OCfiTF &.22 rrjLOR 13. £ 

4: - h "-"" l! "<" <y<<E.? 1 ftli- .n.iE •■■: !■ i-. MnvtV OOHHE 

4*4 FOP H=l Ti) <rm NEKT H 

4S6 plfiv r>$ 

49i' i"ni OR 4. ;■■ uXHTf >j ;-4 

4 ^0 IF 0S " e5 ™ EN PRIHT " WOt,S WEZ TROUVE ---eBflVOr >". FDR W-l TO 300 -WENT W GOTO 

sea t>=o+i 

S83 IF CK3 THfc-N PRINT" C'EST FFHJK ■ ECQUTEZ BTTEN1 1VFNEHT I" , FOP u=l TO SaB-WESI 

N J ..0T0 .-I0i?i 
510 LOCATE 0.2? PRINT CHF 

=.!=, PFINT F'RIMT-C'ETFtlT" 
-V18 FOP tj=l. Tr, ?0«< N[^t .. 
■:■!■? GOTO. J60 




MP-FH 



Daniel MAITRE 



£ BlWS L'ORDRE" 
140 PRIHT HTAB 

i cortEiHiiriOH 



150 



RIM - 



HTftB IT 



Situation I : Si I'on desire deplacer la premiere lettre. 

Cela a poureffet d'intervertir les lettres en position 1 et 9, dememe que 

celles en position 2 et 10. 

Ex. Tirage : "C B I F E D G A H J" si Ton joue 1 CBIFEDGAHJ 

C-H-C et B-J -B done HJIFEDGACB 
Situation II ; Si I'on desire deplacer la deuxieme lettre. 
Dans cecas, la lettre en position 2iraen position 3. puislalettrequi etait 
en position 3 ira en position 1 et la lettre qui etai t en position 1 ira en posi- 
tion 2. 

Ex. "CBIFEDGAHJ"sil , onjoue2CBIFEDGAH J B-4-C-B 
done ICBFEOGAHJ 

Situation III : Si Ton desire deplacer les 3, 4, 5. 6 et 7 e lettres. 
Explication avec la 5 s lettre : 

II en resulte 2 inversements. I'un entre les lettres de la position 5 et 7, 
Taut re entre les lettres de 

la position 4 et 6. _ „ - 

Ex. Lon joue 5 
done CBIDGFEAHJ 
Situation IV ; Si Ton desire deplacer la 8" lettre. 
Dans ce cas, la lettreen position 8ira en position 7, puis la lettre qui etait 
en position 7 ira en position 9 et la lettre qui etait en position 9 ira en 
position 8. 

Ex. CBIFEDGAHJ A-G-H-*A 

done CBIFEDAHGJ 
Situation V : Si I'on desire deplacer la 9" lettre. 
II en resulte 2 inversements Lun entre les lettres de la position 9 et 1, 
I'autre entre les lettres de la 

position 8 et 10. _ u 

Ex. CBIFEDGAHJ JJnMV 

done H B I F E D G J C A 
Situation VI : Si I'on desire deplacer la 10* lettre. 



ATEUR ft CHOISI' 

160 PRIHT HTAB 13 
OU CELlE QUE " 

na print htne 13 

UJI PROPOSES. " 
ISO PRIHT PRIHT I 
US DE JOUER MAIHTEHhHI 
190 FOR I = 1 TO WW 



OTRE BUT ■ REMETTf 
3 RINT "ftLPHflEETiai 
•HINT "QUE L'ORBI? 
JfttHT "POUR IjKlUS, 
*RIHT "UOUS SUEZ f 



"DESIREiX.'SUi 



'■ Ptf.Jff .. 



RE" 



MENU SUE PRQPOS 



570 UTfiE 6 PRIHT "L.iOij'3-rti.>E2 PETUQij 
'OEBRE EH "1WT1" COUPS" 
580 UTflE 9^ HTftE 6 

UflE AUTRE PftRTIE* 
590 UT«E 11 HTftB 7 
CREUSER LA TETE)" 
tJOfl UTftE 14 HTftB 11. IHUEPSE 

PRIHT "OUI" HOftHSL 
610 IJTftB 14. HTftB 19' PRIHT *OU" 
620 UTSB 14 KTHB 26' IWERSE 

PRIHT "HOtl" ■ HORHBL 
630 UTUB Hi HTrtE 17 IMPUT "1 ".f 
640 IP RE* = "OUI" THEH 200 
650 IF RE» = "MOM" THEH PRIHT 

PRIHT PRIHT "FalTES ntEUX LM f 
IHE FOIS"- PRIHT PRIHT «ftU WEtm* 
HOME EHD 

sea i;oto 539 

6^6 REM 

697 REM RECHERCHE B 'UKE CffiWIUftK 

696 REH PftR L'ORDIHSTEUR 



1018 REH eXECUTIOM DE L 



■ RETURN 
TUATIOH 3 



ieaa c 

1823 B 
lfl£* P 
13£S P 
♦ 2 
1026 e 



MID* ■ C0»-LH.1> 
HID* lCO*»LN - 1-1 
HID* 1 C0*.LH * t.l 
HID* (CO*.LH * ■£,) 
LEFT* CC0*,LH - ii 
RI5HT* lCOt.10 - 



• B* + 



CBIFEDGAHJ 



ft HE PROPOSER" 
230 WTM Hi PH 
HERCHER UHE ■ 
260 PRIHT HTS 
EH UOTRE FftUeiif 
270 UTftB 2 



730 T2 -- 
740 



INI 



t T2 



HTSB 19 INPUT 



345 REH 

346 REM fiFFICMSCiE BE Lrt C0MBfNfl£S8N 

347 RE« flUEC UNE OEHftHDE DE CHflHSEPlEtl 



349 REH 

350 HO HE 

360 UTHB 4 HTftB 1 



CUE SON EXEC1 



750 REftD E* 

760 NE^T I 

770 FOR -J - 1 TO 9 

760 FOR K - 1 TO 3 

790 REftD F* 

BOO HEKT K 

S18 E* - F* + .E* 

820 HEXT J CO* - E* OTTO 390 

B92 REN 

B93 REN PftRTIE OU IL V-fi 

394 REH T0U6 LES SOUS-PRiJ'IPh'WE : . 

595 REH 

596 REH ELIMIHftTIOH DES BftTfi SUI'JI 
897 REH LE TIRftCE DE Tl ROUS Lft 

598 REH RECHERCHE 06 L* COHBIHHI-it 

599 REH 
900 RETURN 



?10 FOR 1 



. TO j 



420 wma ii 

430 p = P * i 

440 HE>!T 1 



REftD C* 
913 NEWT I RETURN 

920 FOR I • 1 TO 7* 

921 REftD G* 

922 HEXT I RETURN 

930 FOR I ■ I TO 111 

931 REftD G* 

932 HEKT I RETURN 
1 TO 14S 



CBIFEDGAHJ 



■-C-J done HBIFEDGAJC 



941 



HEX' 



I RETURN 



REMARQUE : 

II est possible de faire des retours en arriere (ils seront consideres 

comme un tour normal, done totalises par le compteur) 

Pour les situations 1, 3, 5, on les obttent en rejouant la meme situation 

que I'on a jouee precedemment. 

Pour les situations 2, 4, 5. on les obtient en repetant 2 fois la meme 

sequence que Ion a jouee dernierement 



1020. 1020 
490 IF CO* 



1040. 1050 




'ftBCBEFGHI j" THEN NT 




350 


1082 C* - 






FIH DE FROSRftHHE 


1004 PI* ■ 




180-5 CO* * 




RETURN 



RETURN 

1027 REM 

1028 REH EXECUTION DE Lft SITUATION 4 

1938 ft* - HID* i:CO»,8.1) 

1031 B* - HID* IC0*,7,1> 

1032 C* - HID* IC0*,9,1J 

1833 PI* - LEFT* CCO*,«> 

1834 P£* - RIGHT* (CO*. 1? 

1833 COS - PI* + ft* » C* + B* + P2* 
RETURN 

1837 REH 

1838 REH EXECUTION BE Lft SirijaTIOH 5 

1839 REH 

1848 ft.* ■ HID* (C0*,9.t> 

1041 B* = HID* CCO*,e,l> 

1042 C* = RIGHT* CCO*.li 

1043 D* - LEFT* CCO*. 11 

1044 PI* - HID* (CO*. 2. 6! 

1043 CO* - ft* + Pt* * C* + D* - EI 
RETURN 

1847 PEN 

1848 PEN EKECUTIOH BE Lft SITUATION 6 
1049 REH 

105a ft* = RIGHT* <i:o«.l> 
1051 EJ - HID* i .CQ»,9.1> 
1852 C* * LEFT* CC0*,t? 

1053 pi* = hib* ico*,a.r; 

1054 CO* = EJ -• PI* . ft* -. C* RET.jP* 

1096 REH 

1097 REH DQHNEES POUR COPtttKfliSOH 

1098 REM CHOISIES PAR L 'ORE INATEiiR 

1099 REH 

1188 DATft ft.F.H.G.C. J,B,I.B.E.«.F.H G.D 

.J.B,[.E.E.ft.F.HGC.J,D.I.B.E.H,P.HG.C 

,JtI 

1101 DATA G.D.A.H.EB. I. F.C.J, G^D. ft H.E 

:«.I.F:C..J.G.D,ft,H.£.B,I,F.C. J CD A-K-E 

B I 
1182 DftTJ) C. I.EF.E.D/G.ft. JH-i;. B I F i 
,B,G.A, -J.H.C. |.B F,E.D»G.ft. J.H,i;,E I F.E 

D.G 
1103 DATft E.Cft, I.F.G. J,B.H.D:E-i: ft Ii c 
.G..J,B.M,D,E,C.ft.I,FG.J,B.H.D.E.i: ft I<F 
.<;, 1 



PLAYER MIS SILE 

Voila, poursaluerl'entree d'ATARI dans HEBDOGICIEL, un IW^* DJ tw* 

petit programme de demonstration sur le deplacement |\ | l^% -^.# % 

d'unplayermissilessurl'ecran.Nousattendonsvosidees, i^* #^ ll 1^ 

et programmes... ^^ ^%I ■ #^*^ 

NOTE DE LA REDACTION QJL 1^^ 



00S;iP I'."j";REM DEF. PLAYEr. 






Hflui=li>U:B(iS=?w>iE5r:^0:OUcSTMW 






■;;..-..„. .-Nf: 5V-:Kr-e*->;*fJ»fV.!ifK ADIifjaf T'E ; . 




fS DE ItO'J'.'ErlEMT 


SET0UR'?O 






p;« ,£<-;uee k> ^.sna et aisuillase 












IF STR1E*0)=0 THEN GOSUB BOOlFtEM CHANGE LB £ 








410 POKE HPQS.H;F£TLJPN 

?■.-■ tljSUP e^rt^SHF- F^iREHIPU :PEM n.AS.- DP(i ! " 







MuREM SEUfHON DU PLAVEP 



; F,-,.;E- t-nuR . ES <!iV,EP=i 



Suite de la page 6 



JU'ie tie /a (Jayt u 

>^ OR1C1 



42123 F3=INT<Fl/i00)*l sF4=]NT(F 

42125 CURSET[3,7,0:CHAR48,0, 1 

42138 FOR1=1T03 

42146 PS-Slfttr [iFa*5ai:"»=rvlDsr 

«2150 CL=L0tti»«J 

*2IE0 IF.!' *3TnENOJRS£T8,, 1,3330*6, 



TO42260 

■12230 I FO.*3THENCURSET13i-U -21*58,0,8:30 

TO42260 

42240 IFCL,2THENCLIRSET23'< !*2).*50,a,B -M 

■12250 CURSE T26,( 1'23*50,0.0 

42260 &0SUB 7000: NEXT 

42270 CURSE?iNT[Xi/F33H32, INT ( TJ 'H J+5, 



! ipRfUJMl.B,] '* 



44050 
44360 
44070 



5 CUBSET3?-*!.; 
5 PATTERN 255 
J SQSl16*5000 



3 CL-lENPP*) :lFCL=1TMEMi-uS5ElEl, j 

1B,0:6OTO43160 

3 IFCL = 3T^EMCURSET6, I"'" I*2)*4B, 

3 EURSET]2,:I?TLlf2)*4B,:0 

3 [5O5UB7080:NE>tT 

5 CUR5ET37,0,a:CHAR48.0. I 

J FORI'!TQ4 

3 P*-STR»I IJ:40*F33:p*=!1]Q«[PS,2) 

J L"L=LENtPS3:CURSET23m40,0.0 

■1 i;ij'5Mti 7000 '.NEXT 



GOTCI41ZB0 

HIRES :PR1NTCHR*(173 

OJKSET0,0,0:FlLL208.i.2 

CUHSET3B,?,0:F1LL193, 1 ,4 

CURSET37. I00,0:DRAJ>0| .0,1 

CURSfT-1 37,3.0 1ORAW0. 130,1 

PATTERNI5 

CURSET57+1 .8, 1 :QRAW0, 190, 1 
CURSE T36, 1*20,1 :GRAu20 1.0, 
PATTERN2S5 
GOSUB45000 



44 110 F3=INT1F1"903H :E4=lNr.F2'90j+l 

*4L23/F0S-I=-2iD2 

14130 PS^TKSCI*40*F31:[Fl>=0THENRS-nlOS 

O4I50 ]FCL-4TKENCURS£T39.U*2)*40,0,0:GO 

TD44180 

44160 lFCL=3InENCURSET42*n*2)*40,0,0;GO 

TO441B0 

44170 !FCL=2THENCURS£T45*-at2J*40,3,0.'&Q 

TQ441B8 

44175 CURSET48'(I'2)*40,0,0 

44190 &OSue7B00-NExr 

J41S0 F0RI=-2TQ2 

44200 PS=STR«[I*F4*403:]FI>=0THENP*-rtIOS 

IP«,2D 



44230 


[FCL=3THENCURSET6,20'( 


t'J ,*4 


0:50 


TO44260 








44240 


IFCL=2THENCURSET12,20K 
CURSET18,20'U '23*40,0 


l*2J*4i 




44250 






44280 


GOSUB7000 sNEXT 






4„2?e 


CURSETIN 


(X1--F3) + 134,1N 


nnxFs 


B+SB 


,0:CNAR114,0,I 








44280 


l uRit r i n 

15,0,1 


CX-TS)* 134,1 NT 


mvo. 


86 ,0 


vz 


IFABStKB>ABSCX13THEWJ = 


mmt 


L.SEF 


450:0 


IFABSm 


fi8Srfi)THENF2= 


ABSdME 


LSEF 


45030 


RETURN 








43989 


REM **-* 


EFFACEMENT **: 






50000 


POKE 61 6, 


3 iPRINT 






58010 


FOR] = 1 TO 


JiPRINT" 

" iNEXT- 






50020 


POKE 616 


I3IPRINT 






50030 


RETURN 








58040 










58999 


RED *** 


JITE *** 






51000 


.:■:■> c --<m 


,5: PLQT12,26, 


'ESPACi 


POU 


R CONTINUE*" 









55040 MIRES 


PRINTCHRS{17;);PAPER4:1NK3 


55050 CURSE 


97,I38,1;FORI=1TQ10:HEADR1, 


2:DRflWR] [ B2 




55060 FORI- 


T06 


5507e REAQR 


• R2-CURSETRI.R2, J iREADS) i«2 






55880 RE ADR 




55030 FORI = 


TO IB 


55 IBS RE "DP 


,R2:riJRSETRl,R2,l :REflORl,R2 


0RAUfil,R2,l 






91,132,1 :FORI = ]Tu.:REriDRI,S 




:NEXT 


55123 CL'SSE 


1 39, Be , 1 :F OR 1 = 1 lo; :RE.mOS 1 , R 


55140 RE POP 


?3,l28,):DRF>iJ-3,2,l 
,R2:CURSETS1,R2,1 iFDRl-lTOa 


55150 READS 


,R2:0RAurtl.S2,l ;rJ£HT 


55130 SEADR 


■R2:CURSETR1,R2, J!FOR1"1T01 


55170 RFADR 


,R2:]FI-3THENCURSETR1,R2,] :F 



55198 DRfiWftl.RZ, J :NEXT 

56130 REflDR].82:ajRSET81,R2, 1:F0RI*1TB13 

■:i=i?Fr« MtrtDRj , k2 ORflURl .S3, 1 :«EXT 



55230 CI 
2:0ROUfi. 



-"5,25^ LURSE 



7-i.,RP.UKi 
55260 

2:aRHURl 






l,R2,l;NEKT 
JRSETI7B.123,! "FOR: 

55270 CURSET1I0,148,1!FOR. 
1 .'REflDRl iCURTOUR: 

55300 :UR5ET10,40,0 



17:RE«DR1,S 
H0;RE''hDRI i 



55311 



CURSE T 



LIB, 1.1 :CURS£Ti7, 
="LES FLISUST1ERS 
F«I16,B. UCURnOUS 



=.:.<ii30 PR[N T U&.-.E? UOU5 J01R LF.S REGLE 

55410 GETStaFSt= , 'O ,, ThENGOSUB58000 
55420 TEXT:CLS:PRINTCHR*C17T:PQKEei5, 1 
PRINT :PRlNTSPCC 10) "UEUlLLE? 

PPTIENTER" 
55425 GOSUB59I00 
55430 RETURN 
55440 : 

5B000 REPEflT:REBDRl,R2,R3 
56010 [FRl-8rPEN56040 
5B020 PLP.T3, 0,0,0 



56U30 r^UilC2,Pl-2,R2,15 

58040 UPUTR3S5 

56050 PLFK0,0,0,0^UN11(.R3=16 

56060 RETURN 

57393 REn *** REGLES *** 

58000 TEXT:PR1NTCMR*C1?1 

58030 PRJNTSPCC41C.HR*f4iCHR*i27)' 

2?)"N"SPC[33" LES FlIBUSTIE 

RS"CHR«{4 3 

56040 PRINT:PRINTCHR*(1323SPCC11J 

58050 PRINT :PR1NT 

5S0B0 PRINT" UOUS ETES LE CftPlTF- 

n MBUIRE" :PRINT 



r-3 PflRP-nETRES 



88238 P 
DE UQTN 
5S24S P 

5B2SB F 



EQUIPAGE" 

- in U01LURE" 

- Lh CCQUE" 
NOUS UERRON9 SUCCESSI 



1: PR I NT "DE 

12, 28, "ESPflCE POUR CONTJNUEE": 

J RINTCHRSC1233SPCi:i0:"O£PLflCEn 

r-PRINTCHRt<132)" ^ ***UOTRE 

r" pour uous rjEPLSCEs 1L SUFF 

INT 

rDONNER fl JOTRE T1H0N1ER UOIR 

r" UOTRE DEPl.flCENENT DEPEND A 

'HINT 

I"OE UOTRE TrtUX OE UCULURE. ET 

■RiNT 

r"DlRECTION PFiR RAPPORT All UEN 

[" 1L5 SE DIRIGEMT T0UJOUR5 •! 

'R1NT 

I'QE FPCON A ETRE EH POSITION 



58290 PR!NTCHR:C133)"CARTE OOnkant LA PC 

SITION 0E5 NAUIRE5" 

5E300 PL0T12.26."ESPACE POUR CONrl^lUER , ^ 



58310 


cts 


58330 


PRlSTSPC[15)CHRiU29)" TIRS" ^PRINT 


5FJ340 


PRINTCHR*C132j;' U* LES PJRRTES J 


58358 


PRINT" LE PIRATE SE RAPPSOCHt OE U 




DE": PRINT 


58360 


PRINV'ZSH 11ETRES) PUIS CHANGt DE C 




R" iPRINT 




PRINT'POUUOIR UOUS AuaiH DAME, 5DN 


WSLE 


0E":PR1NT 




PR INT" T 18. "CHRSC 33)'!. 'ANGLE SOUS 


LEOUEL ON PEUT":PRINT 


5B330 


PRJNTCHR*(i33)"TiRER COLIURE 90 DEG 




R BABORD ET- iPRINT 


3B400 


PR 1 NTChRSI 1 333 "TRI8QRD. " ■ 


5B410 


PRINT :PR[NT" S'lL UOUS RATE , ]L SE 


RAPPROCNEfiA." :PRINT 


58 4 20 


PRINT"EN EFFET SES CHANCES OE UOUS 


58430 


PRINT"SONT INUERSE1ENT PROP0R11ONN 
A " :P8INT 


5S4'40 


58450 


PL0T12,26,"ESPACE POUR CONTINUER 1 ': 


BE TO* 




RIM? 8 


CI.S:PR1NTSPCCI5)CHR*E129)" TIRS":P 


PRINTCHRIC1321" *** UOTRE UA15SEAU 




PRINT 


56470 


PRINT" SI UOUS ETES EN BONNE POSI 


TIOM POUR":PRINT 


58480 


=R1NT"TIRER C'EST A DIRE A - DE 20 


nE'TRES":PRINT 


58490 


PRINT"ET EN ATANT lE NAU1RE PIRATE 



ilNT"U0S ANGLES DE TIRS.ALORS UOU 

(INT"TIRER EN REPONDANT PAR 'F'": 

MNT'ON UOUS INOIOUERP LA OISTANC 

' :PR1NT 

(iNT"SEPARANT;ET ON UOUS DEtlSNOER 



J :RL*lO O :POKE 1 , 



5-3339 Hi M t 

eu0a0 print 

SENS' 'I I" 



BB070 RETURN 
61030 DATA 15,159 

0,1,12,148, 17,0 


17,8,28,1^4,3.0, 18.154 


1,0,1,20, 140, B, I 

61,10 OAIA 16,131 

61120 DATA 70,127 

0,1 

61200 REE1 ** DA1A 


15,0,28, 134,0,1,20,133 
ENTETE ** 


,43,24,36,34 
61210 DATA 9,2,10 

61230 DATA 131,14 
,-69,-6,69 


.1,-2,4,-5,3,-11,1 


,-53,-7.53 

124,-37,-2 

124,23,4 

S1280 DATA 184, 96, 2], 3, 182,106, 24, 4. 179, 

124,23,3,191,125,18,-13 


9,-20,1,-2,3 
1,18,-11,11,-10 

61320 DATA 120,101 




,1,5,-1,4,151,103,-2,4 



31330 DATA 116,122,-2,8,-2,5,-3,4 



9.-1.1 



M>- 



61340 OATA 162,86,-3.4,-2,5, 

,3,-2.-4,-1.-4,2,-5 

61350 OATA 154,101,0,3,-4,1; 

1,10,0,3,1,11,3,-3,-3,0,-3, 

2,-2,-2,2 

61368 DATA 182,128,-2,3,-1,4 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 

NOM : MATERIEL UTILISE : 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES : 

REGLEMENT JOINT: DCHEQUE DCCP 



DEUX SUPER-CONCOURS PERMANENTS 

10 000 francs de prix au MEILLEUR LOGICIELdu MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
ormule, pourtant nous es- 
sayons de faire quel que chose 
de different : nous organisons 
un concours permanent to us 
les mois et tous les trimestres! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer I 

De plus, ce seront les lecteurs 
eux-m ernes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
wHb. 

Pas de Jury, pas de decision ar- 
bitraire, HEBDOGICIEL n'inter- 
venant que dans ie choix des 
programmes qui devront etre 
ORIG1NAUX et FRANCAIS. Si 
voire programme n'est 'pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pou voir nous Ie 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications nee essa ires a ('utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal, 
Bonne chance I 

Reglement 

ART 1 HEBDOGICIEL organise 
de facon mensuelle et trimes- 
tnelle'un concours dote de prix 
recompensant Ie meilleur logi 
ciel du mois et du trimestre 
ART 2 Ce concours est ouvert a 
lout auteur de logiciel quetque 
soil Ie materiel sur lequel il est 
realise L'envoi d'un logiciel en 
K7 ou disquetie accompagne 
tftin-Uorv de participation - de- 
coupe dans HEBOOGICIEL ou 
envoye gratuitement sur de 



mande par ta redaction de notre 
journal constitue I'acte de can- 
didature 

ART 3 La redaction d'HEBDO 
GICIEL se reserve Ie droit de 
selectronner sur la base de la 
qualite et de longinalite les logi 
ciels qui sortt pubhes dans ie 
journal 

ART 4 Ce sont les lecteurs qui, 
par leur vole, determmen! les 
mgilleurs logiciels mensuel et 
Inmestnel 

ART 5 Le prix alloue pour Ie 
concours mensuel sera remis au 
plus lard un mois apres la clo- 
ture du concours mensuel 
ART. 6 Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel 
ART 7 Le present reglement a 
ete depose chez Maltre Jauna- 
Ire, l.ruedesHalles 75001 Pans 
ARTS HEBDOGICIEL sereser 



ve le droit d'mterrempre a tout 
moment le present concours en 
en avisanl les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine I'acceplation par 
les concurrents du present re- 
glement 



Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalise des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depouillement du vote. 



BON DE PARTICIPATION 



Prenom 

Age 

Adresse 

n'"' telephone 

Norn du programme 

Norn du materiel utilise 

declare etre I'auleur de ce programme qui n'est ni une imitation ni 
une copie d'un programme existanl Ce programme reste ma pro- 
priete etj'autonse HEBDOGICIEL a le publier La remuneration pour 
les pages publiees seront de 1 000 francs par page (un programme 
n occupant pas une page entiere sera remunereau prorata de la sur- 
face occupee) 
Signature obligatoire 
(signature des parents pour lesmmeurs) 

Le programme doit etre expedie sur support magnelique (cassette 
ou disquette) accompagne d un Descnptif Detaille du Materiel uti- 
lise, dune Notice d Utilisation du Programme, et d'un emballage" 
timbre permettanl ia reexpedition du materiel non publie 



RECOMMENDATIONS AUX LEC- rons ainsi reperer facilemenl les 
TEURSQUISOUHAITENTFAIRE listings, une fotssortisde 1'impn- 
PUBLIER UN PROGRAMME : manle 



• Indiquez 

magnetiqu 

nom, le nom du programme et le 

materiel auquel il est destine 

Rien n'est plus difficile que des 

sayer de charger un programme 

d'ApplesurPC1500 



■ Notez dans les premieres 
lignes de votre programme, sous 
forme de REM. voire nom, le nom 
du programme el le materiel 
auquel il est destine Nous pour - 



le support ■ Dupliquez plusieurs fois sur la 
iemR votrp meme cassette et a des niveaux 
d'enregistrement differents 

votre programme. Nous aurons 
plus de chances d'arnver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 



• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro 
gramme Voire lettre daccom- 



pagnemenl et vos autres cour- 
ners doivent egalemenl etre 
separes car traites par d'autres 
services 

• Joignez. si possible, un listing 
du programme et un organi- 
gramme 

• Enfin.lefindu tin.expliquezles 
particulates de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle" de Janick TAILLANDIER. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEWLETT-PACKARD une adhe- 
sion gratuite a son club. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRS, INTERFA- 
CES RS. 232 .C. 



GAGNANT DU CONCOURS MENSUEL HEBDOGICIEL 

programme SAUVETAGE aw VIC 20 



GAGNANT DES DEUX CASSETTES OFFERTES PAR 
SQUIRELLE : 



GAGNANTS DE LA GAMME COMPLETE DE 
CASSETTES DE JEUX SUR FX 702P ET PC 1500 
OFFERTE PAR LOGI'STICK 

Christian LEGRAND. 76160 PREOUX, pour son programme PRINCE 
DES ANNEAUX sur FX702R Elie MADEUF, 19200 USSEL. pour son pro- 
gramme DOMINOS sur PC 1500 



GAGNANTS DES LIVRES "REGLE A CALCUL" : 

Stephana GILLOT, 77000 MELUN pour FRANCE sur CANON X07 

Mike LAHMY 92700 COLOMBES. pour TRAVERSEE DE LA GALAXIE 

sur TI99/4A Basic Simple 

J -Francois JEUNET 34000 MONTPELUER, pour PROGRAMME 

MATHEMATIQUES sur MZ 80 

Antoine DUCRET. 54300 LUNEVILLE, pour CONTADET sur GOUPIL 

Jean-Jacques TANGHE, 73290 BARBY pourFICHIER DADRESSES 

sur APPLE 

Michel ZINDY 68500 GUEBWILLER. pour NERKA sur MPF II 

Ehe MADEUF 19200 USSEL, pour DOMINOS sur PC 1500 

Christian LEGRAND, 76160. pour PRINCE DES ANNEAUX sur CASIO 

FX702P 

Pierre WRIGHT 78480 VERNEUIL SUR SEINE, pour GESTION DE 

BCHIERS sur COMMODORE 64 

Nathalie DETRUIRE, 75019 PARIS, pour LEON sur HP 41 

Pascal PIERONi. 75013 PARIS, pour KRYPTON sur ORIC 

Sfcm SHERNI. 93200 SAINT DENIS, pour YAMS sur ZX 81 

Emmanuel PERNOUD, 38000 GRENOBLE, pour PACMAN sur TO? 

Bernard POYAU, 88140 CONTREXEVILLE, pour BANDEROLLE sur 

PC 1211 

Bernard DUPIN, 17000 LA ROCHELLE. pour SAVE DISK sur TRS 80 , 

Monsieur P Francois LECOINTRE pour le programme KINGDOM sur 
ZX81, ne participe pas au concours 



■ Suite de la page 1 




1 slot pour lecteur decades magneti- 


co u rage r le developpement logiciel 


10 pouces (I.3K) 




Interface HP-IL, HP-IB 


documentation sur la HP-71B. 




L'utilisateur peut utitiser trais langa- 




ges de developpement Le Basic. 




i'Assembleur et le FORTH et trois 




supports de masse ROM, Cassettes 


POfDS 


et cartes magnetiques 


350 g 


MEMOIRE 


ECRAN 


17 5KRAM 


1 ligne, 22 caracteres 


64KROM 


ligne logique (destructions) de 


en version de base 


96 caracteres 


EXTENSIONS . 


CLAVIER 


4 slots pour extension rnemoire 


71 touches dont un pave numerique ■ I 




PETITES ANNONCES 
GRATUITES 



A VENDRE Micro -ordinateur AP- 
PLE II + 48 K RAM + modulateur 
pour television + enregistreur 
a cassettes + manual Tel 
976 76. 36 a partir de 19 h 30 prix 
6000 F Julian WALTON 

VENDS PC 1500 (5/83) + CE 155 + 
8Ko -i- manuels + 2 livres + 2 logi- 
ciels de jeu logi'tick + PC WORD 
+ PC-MACRO -I- stylos + papier + 
coffret le tout 4000 F et en prime 
1 7 listing dejeuetdun^lSaun" 20 
de I'OP Oliver CHAPUIS 47, ave- 
nue du Marechal Lyautey 75016 
PARIS Tel 651.35.68 apres 19 h. 

CHERCHE MICRO-ORDINATEUR 
VIC 20 (SECAM UHF) en parfait 
etat + 1 magnetophone Commo- 
dore + 1manettedeieux etlcas 
sette jeux pour toute offre Tel 
869 53 82 Laurent 

VENDS Tl 99/4A + manettes de 
jeux + cordon pour magneto + 
aide a la programmation + livres 
"jeux et programmes tome 1 et 3. 
nouveaux jeux dordmateur en 
basic, exercice pour Tl 99, leTI 99/ 
4A a larfiche, la decouverte du 
Tl 99/4A, pratique du Tl 99/4A. 
50 programmes pour Tl 99/ 4 A" + 
3 cassettes de programmes, Prix 
a debattre 2800 Frs lei . (40) 
90 18.94 entre 19 et 20 heures. 

VENDS SHARP PC 1251 + impri- 
manteCE 125 + Boiteaoutilspour 
PC 1251 + La decouverte du PC 
1251 etat neuf prix 2300 F Mon- 
sieur TCHEKINIAN 75009 PARIS 
Tel 874.98.51 (heures de bureau) 

VENDS ORIC 148K+8K7 + PERI 
TEL + Modulateur N'B + nom 
breux livres valeur 3800 F vendu 
2000 F. etat impeccable J. R CLE- 
MENT 23. rueSimart 75018PARIS 
Tel 257.84 58. 

VENDS imprimanteDMP 100 neu- 
ve pour TRS 80 50 caracteres/ 
sec 5ou10Cat/Pouce680colon- 
nes s'adresser a Monsieur GEN- 
NEQUIN (20) 72.11 74ULLE. 

RECHERCHE correspondance 
avec personne possedant SPEC- 
TRUM 48 K Stephane ANAGNOS- 
TIDES 22, rue des cinq diamants 
75013 PARIS Tel 580.21 76 




I2etn"17a25 MICRO 7n<'1a7 + 
n" 9. 10,11,13, ORDINATEUR IIMDI- 
VIDUEL n» 43 a 50 + n" 52, 53. 55, 
56 10 francs chaque. Laurent 
PECHEUX 19, avenue Paul Leplal 
78150 MARLY LE ROI 

VENDSHP4lC+interfaceHPIL+ 
Documentations completes etat 
neuf 2350 F Tel (56) 35,15.59. 



VENDS ZX 81 + 16 K + C1 meca 
nique (le tout dans pupitre 
bois) + tele NB + 30 logic 
valeur 3000 F vendu 1990 F Tel 
45865.31 apres 19H 






VENDS PC 1500 (SHARP 09/82) 
1300 F ImprimanteCE 150 1300 F 
module 8 Ko RAM protegee CE 
159 900 F tablette digitale CE 153 
900 F + papier+ stylos + livres (4) 
+ Malletle le tout 5000 F Joel 
LEMOINE2, rue A Leyge bat 28 
esc 02 95340 PERSAN 

POSSESSEUR SPECTRAVIDEO 
recherche correspondants pour 
echange informations, trues, 
astuces, et plonger en commun 
dans le systeme pour rallier les 
msuffisances du manuel R 
DILHAC 22, rue Pericles. 33160 
LEHAILLAN Tel (56)2817 97 de 
18 h a 20 h 

VENDS lecteur enregistreur pour 
T07 THOMSON prix 800 F + 
codeur modulateur SECAM 
THOMSON prix 400 F Monsieur 
POIROT Bernard 43, bd Charles 
Peguy 28000 CHARTRES. 

VENDS ORlC148K+modu!ateur 
PERITEL SECAM couleur + 5 li- 
vres de programmes + 7 K7 de 
,eux ZORGON. XENON le tout 
en parfait etat neuf. achete en 
Janvier 84 valeur 3500 F vendu 
2500 F Laurent DUBREUC0 1. rue 
de Pans 60130 SAINT JUST EN 
CHAUSSEETei (4)478 69.99 

CHERCHE pour TI99/4A le modu- 
le du Basic Etendu et tout pro- 
gramme de |eux en Basic etendu. 
poignees dejeux maximum 500F 
letout Bruno CURTIL 2, rueViva- 



VENDS ORIC 48K + PERITEL + 
Alimentations + module N/B + 
Manuel -t-35programmes + inter- 
face manette de jeux Juin 83 Prix 
2400 F Tel 671.71 48, 



VENDS Neufs. jamais utilises, 
logiciels americains pour APPLE 
SECRET MISSION, PIRATE MIS- 
SION, ALIEN MUNCHIE.SARGON 
II et CHOPLIFTER 300 F CAN- 
YON CLIMBER, SNOOPER 
TROOPS et FLIGHT SIMULATOR ■ 
250 F ULTIMA II et DARK CRYS- 
TAL 350 F DOG FIGHT ; 400 F 
et CHESS ODESTA 450 F Tel 
282.07.81 (apres 20 h) 



VENDS cartouches pour VCS 
ATARI PITFAUL et I'EMPIRE CON- 
TRE ATTAQUE Prix 200 F Tel 
671.71.48 

Si vous possedez un HECTOR 
abonnez-vous au bulletin d'HEC- 
TOR la revue des HECTORlENS. 
renseignez-vous aupres de LE 
BULLETIN D'HECTOR, Lionel PA- 
CARDA 40, bd Anne de Bretagne 
56400 AURAYTel. (97) 56.55.71 

RECHERCHE pour TI99/4A mo- 
dule Basic Etendu Ecrire a Jean 
FERREIRA 223, rue de Roncq 
59200 TOURCOING ou telepho- 
ner au (20) 37 92 72 apres 20heu- 
res 

A VENDRE ORIC148Kaved cor- 
don magnetophone + magnelo4 
modulateur UHF NB + une cas- 
sette jeu + 2 livres prix. 2200 F 
Monsieur AMAROUCHENE tel 
829.82 25. (P1ERREFITTE) apres 
20 H 

VENDS HP 41 + Quad + Time + 
XF + port Extender slcape+ Doc 
correspondantes + Synthetic 
programming 2500 F a debattre 
Marc VINCENT 7, rue Pruvot 
92170 VANVES Tel 260.33.00 
poste 33 62 (heures de bureau) 



TOUR DE HANOI 



Ce programme est un programme dejeu LES TOURS DE 
HANOI 

II fonctionne sur SHARP MZ 80. sous basic disk SP6015 
mais peut en fait (onctionner sous n'importe quel basic 
SHARP (disque ou cassette) Le programme ne comporte 
en effet aucune particularity du Basic Disk (ce qui aurait 
pourtant ete particulierement utile ici. la fonction cursor 
aurait 6vite de nombreuses manipulations du curseur) 

Jean-Franpois JEUNET 

Regie du jeu (rappelees dans le programme) 

Le jeu est compose de 3 lignes verticaies sur la premiere d emre eiies 

est en'iie un certain nombte de disque de diamelre decoissanl (posi 

ttonnes par otdre decroissanti Le but du /eu consiste a faire parvenu 

tOuS*esd<squessurlatige3dansiordre initial Pourcela onpeutdepJa 

COf n'importe quel disque du sommet rAne tige sur one quelconque 

des deux aulfes tiges. A condition que le disque ne se refouve pas sur 

un disque de diamelre mfeneur 

Letxjtdujeuest b'enOvidernment deparvenirau but en ur> minimum 

d operations 




I-8-6 :-»-■ ■ ■ (i - 




? PRINT "MUlRBBeonfeicn ■:* cIImimi usulex ■■ 

I BE! '«■; IF UC^i THOi 4wJ 

3 IF <N0<3>*>HC--i' Tnew HUSK nut l GOTO 4c>8 

S FOfi 1-1 TO NT 

9 PPINT"B" 



J NEXT I 

J F«1NT"0" 

i FOR 1-: TO 7 

T «*<? 



TSea#>lB*(?>sTflB*28>lft*i I 

TUB. |4MAf<8>lTftB< 28»M .-, . 



! PRINT 

I'-il -OBD uouli 

) fiET PflJF »•■"" TM1 

:■ li H "n- THtH 4001 

J IF PI-"N" THEN 4« 

■ M"lii.li!0 Vlti 

I f*IMT'P8800'' 

) FOR' I- I 10 liSsf'PlH 



8 MEHT 

u Ff'ItlT (3*1 
PRINT [■*( 

B FOR i=j ro MD 

9 PPINT fitir-liiF-PH.T-BBC 

NEXT I 

a point mu>i-w 

e PPIriT TOB-4.:". i i"ITflB(l8>t"(2>'I 
9 PRINT Dfi I'S-BBBB" 
fl FDR 1-1 TO SPRINT SPCJNEXT 1 
t PR1KT DX|>l"S988" 

1 PR[NT"™.«..o de la i ». « d«w.« 
t 9TT XUIF XI-8 THEN .v. 

S IP XI 'J THEN MUSIC "Ufs&OTu $08 

^ print i 

3 FOR I«ND TQ i STEP -I 
» IF B<Xl.I>-7 THEN 858 

I : U6QT0 KOO 

J NEXT I 

i MUSIC hUJlPRINT'il ti.iNllMl 



870 SOSuB X*D 
8W 6OT0 .>*> 

900 RRtHT*Brw«ro •* lo teu* 

910 BBT .Mr a;.o ihU* *io 

920 IF « " IMf.. M.*|f Hjti60T(l 110 

l%i II. r ' "*•' " UiIC ^"wiu >io 

'^S PRINT X3 

?30 FOR 1*1 TO I* 

940 IF B'X2.I)<>? THEN *>* 



ma n ,- 

8S6 IF B< : 
-,... I>r .t.-, , 

MICXTI 
9*9 PBIN1 ' 

■-. .. . i. . 



I lIHEH nuilt. MU*i&0TL. iftt 



B GOTO 7«l 

•'■' "■!■■ S ,. ,. ,„. .... 

«J G0SU6 2000 
*M GOTO 7*0 

:■'■'» I- - I, -in .HI '.f„i„ 

1010 ■ . : l : . . . libH-nt- lutln 

lfl.f> p. : ;■..,■:< f,.-.'! vi nf.Kl.vni? 

1030 FOR I-l lu * 

1048 IF »■ I. |i ,".i thsu MO 

1050 NEXT 1 

imp print Mi i •! naari" 

1078 FOR 1-) TO rtPRIHI ftPtllNEKT I 

loisn FR1HT (•f.prnBDD" 

IBM mut". ■..*,. rj..»i ,,i, n * .'.V". . 

1LW. ItJfl,- Ml.ltlMIJ-MC HUt 







Hit ■ 



1110 GET H: II t| ■ IN! i, [|| 

IK'O IF R#i "Q» 80TO 361 

1138 IF 8J»»w" then PBINt'B'i 

ll-tti MU--K nijiiQOTO Hit) 

.'i-.u'iii pru •«»**«»♦***+ ****** 

.' '' rt.,.,, Miimi[ 

Z883 KM » 

;eo: rem 

IS10 F 

:o:i;i 'iti piuf h. iheh »u;o 
2830 IF R|." - then 30W 

,'0'W nu-.Ii wjlii^T.- .«.!■ 
;'RM) RETLiRn 

-Oop feu 

1801 RE" • * 

-■w: ce* ■ fifFUHMut Mncs • 
t8«J Ffn 

J004 P£H 

t;oio print fKv..-8-,Tne ■ 
J8iO C-CM 
J8» KVJRH 

4088 BEN • 



REGIES Wl H'U 



4010 
48» 

■1.1 ■<_■ 

48*0 PR J NT- l 
40W 



^AZ80 



4120 
4130 
«_t_M 

4:» 

■ 4*40 



iHT-feelle 

PPi.ii nan «« 

PRINT Bl'Oi^. 
PRINT'OBMnloc*' («•■* «i|« 
FRINT-Bt im 1 -i . i t« 
PRINT -Mm, «,., .„ „,.,,_. 
PRINt ftj.,.«, #»l,. 
priht -hvii oralotar ■*> ditau 
"IMT-aai ot*a>t. •*.■» |j in 
POIWT-— ]. i i rt^awvr ' ' ■ 

MM IMO 

QOTO * -■' 






>."4<4<M>' l» • 



MUSIC MASTER 



La musique est a IhonneursurSPECTRUM ! Esperonsque 
vous taperez ce programme en fanfare ! 



Olivier D6VUE 

Description du programme 

Le programme est compose en 4 parties 

i Introduction de la meiodie vous pouvez a partir de n import e qu e>e 

partition (pas trop compleie) vans connaltre le soltege iranscnre 

celle-ci sur I ecran en recopiant simplement les notes dans i cdre de 

leurs apparitions Lordmateur ttent aussi compte des pauses vousdis 

oosez done de 10 sy mboles numerotes Oe un a du qui sonl dans I'ordre 

ia ronde la blanche la noire, la crocbe la double croche la pause la 

demi pause, le soupir, le derm-souptr el le quart de soupir 

Vous deve; done placer ces symboles' sur la portee dessinee sur 

iecran(l2eiages) 

il suftit done d entror le symbole rencontre (1 10) at ensuite "I etage 

correspondanl (t 12) 

Vous pouve/ done recopier la pluparl des tubes radio 

2 Lordmateur reproduit la melodie entree d aoord exactemem com- 
me vous i avez ent ree et en suite si vous le d*sirei sur piusieurs octaves 
el a des vilesses ditterentes 

3 Lordinateur atliche le programme Basic de la melodie que vous 
pouvez alors reintroduce dans dautres programmes 

A LOfdinateu' transformed melod'0 introduce poi.ivotis perrneiue du 
la jouer sur uneguilare.ildessinelemancheel vous renseignesut quel 
'es cordes H taut jouer et sur ouei'e case il taut appuyer Vous pouvez 
alors jouer voire melodie preieree sans conneitre le sollege ou Si vous 
ie desirez vous pouvez par ce moyenapprendrele sollege et la disposi- 
tion de la gamme sur la qui tare 



SP 



ECTRUM 




UOULBZ-UOUS 

l-INTKOC-UTRe Lfl MELODIC 

e-eomrrefl lb nsuaoKa 

Ji-UUiH UE HROURHMMt UUMiT DC Lfl 



is u'-t i-i seep .i,ie clb 

BORDER 3 PRINT RVT 3,9. PAPER 1 
INK B, BRIGHT J, UOULBZ-UOUS " 

16 PRINT " " " 1-INTRODUIRe Lfi W 
ELODIE" 

17 PRINT • "S-ENTENDRC LR MCLOO 











10 
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a 








n * 













J J 

£ 3 


t i w - J 

+ s 5 7 e 
VOS QUXTRM9 


V 


ie 


— - 


-— 


"u m -jwi" mm 







« voire *u. tar* pour 

■« lO-l • ft ILll.t <t« ■ 



FMCN LCT 8 ( 



IBB NEXT I 

170 TOR ( »1 TO 10 

17B ir n'vi»-l TMf*N Ltl 

180 If" V • I 1 »n "j 1 THfcN I 



rr i 



IB .PRINT 
BRSIC DC L: 
19 PRINT 
^ODIC POUR 



■■3-UOIR LE PROORFlMMt 

HCLODIE" 
••* -TRANSFORMER LH MC 

Ufl JOUER SUR QUIT 

21 INPUT "voire ChOlx <l-4.l ", 

55 IF ehtl OR th>4 THEN OO TO 
1 

53 IF Cf>>l THEN 00 TO 60 

St IF Ch»8 THBN OO TO 194 

25 IF Ch-3 THEN GO TO 050 

56 IF Ch:l THEN GO TO 400 
4-9 STOP 

50 REM introduction teiomi 

51 CLS PRINT RT 10,5, FLR3H 



pflpen 6 INK 



T f*T tt.C.a: LET IH«1 

NEXT n 

60 FOR n=164 TO 100 STeP -16 
PLOT 0,n: DfiflU S55.0 NEXT rt 

70 PLOT 0,100 DRRU 0,64- PLOT 
3,100 DRRU 0,54 PLOT 31,84. O 
RflU 13.0 



•4JR8WM 

FOR n=17 TO £1 PRINT 



NEXT 
90 ~ 

a, 3: 

RCLE 6&,2B,in 

FOR m - 1 TO 3 UiKi;LL >*rf , __»,» i>t 
EXT m DRRU 0,14- DRRU 4,-4 

85>FOR *al TO 3 CIRCLE 11B,S0 
,m NEXT B DRRU 0,1* DRRU 4,-4. 

PLOT 119,23. DRRU 4,-4 

86 PLOT 135.32 DRRU 12.0 FOR 
■■1 TO 4 PLOT 133, ^S-» DRRU * 
NEXT » PLOT 161,22 DRRU 12 

TOR B=l TO 4: PLOT 104,S3**) 
DRRU 6,0 NEXT in 

87 PLOT 188,27 DRRU 3,-3: FOR 
■il TO 6 PLOT 190,26-fe DRRU 2 
-2 NEXT » DRRU 0. -3,4.25 

33 CIRCLE 210,20,1 CIRCLE 210 
,20,2 PLOT 210,17 DFJRU S,S,1 
OftfiU -3,-15 CIRCLE 235,20,1. CI 
RCLE 235,20,2 PLOT 235.17 ORRU 
5,5,1 DRRU -3,-15 CIRCLE 234, 
4,1 CIRCLE £34. 14., 2 PLOT 235, 

1 DRRU 5.5.1 

90 PRINT RT 21.0, PRPER 2, INK 
7," 123456789 
10 " 
91>FOR »=1 TQ IS FOR n =3 TO 7 
PRINT RT 11,11, INK n, FLR5H 1 
PRPER IRND*71 , "MU5IOUE" BEEP 
-01,RND**0 NEXT n 5EEP . 1 , ■ 
NEXT ■ PRINT RT 11 . 11, MUSIQUE' 

92 DIM t C121 DIM Jilil DIM t 
(12) DZM ad*; DIM b(10i DIM 
j 112i DIM Z (12) 

93 RESTORE GO SUB 1000 

94 LET p=l 

95 DIM nfieei DIM i I 188) 

96 DIM 4 1100) DIM MSeei 

120 INPUT "systole (1-10)", LIN 
E ti IF imivs' THEN LET pip- 
1 GO TO 137 

121 LET d (PI s'jflL CI 
125 IF d (pi <0 OR d(fi> 10 THEN '.- 



192 NeXT t 

193 NEXT V CO TQ 15 

194 LET «1>8 LET «2>0 LET 13. 
1 REM ■■ IOJ i • 

195 CLB FOR ><ll TD 19 STEP Pi 

as as 

1B6 FOB B-l TO P 

197)IF hl«l--l THEN PRuae ';(■.!,■ 
' 00 TO 210 
20O BEEP v in ■ .'l ,v, in - I ■: 
210 NEXT M 
21B NEXT X 
220 PR INI RT J , ;• , " vim I* r vouft • 

touier^e nouvnu",flT 11,9, "la iu 

'225* INPUT " tfi/ftl •,.» ir »0«"n 
OR l|."" THEN 00 TO 15 
227 LET l-i 

230 CLS INPUT vi tease (l^B> 

"ill LCT alii-24: LET »2=36 LET 
aS-lS: IF I 40 OR l)B THEN OO TO 
230 

23B OO TO 198 

SS2 9 Cf1 Pcojr^mnvR lorrcspondinl 

£60 CLS FOR b-i30 1(3 3 5TeP -3 

BEEP ( I'D) ,b MI. ■ T b 

270 PRINT FLfiaH 1, RRPER 1, INK 

6, ■■PROORRMMC BRSIC i_'0RRE3P0ND«H 
T R LR MFLODIC" 

27B PRINT 

BOB FOR m-1 TO P 

2BB IF h >■(■■- l THEN PRINT 'PflUS 
t '■, g (*l OO TO 310 

303 PRINT BEEP ' ,1 III . ",M« 111 

J 10 NEXT M 

320 INPUT prtuii 'ENTER' ",OI 
GO TO 15 

400 REM 'juil..-| 

402 CLS BORDER 5 

40S LET dO 

4.07 FOR ml31 TO 91 STEP -8 PL 
"IT 10, n DRRU 245,0 NEXT n PL D 
" 10,131 ORAU 9,-40 PLOT 15,13 
1 DRAC B . -40 PLOT 10. 131 

*oa>LET in mu ripriiinti le* 
Six cordci d* voire «uil*ri PO 
■>r jouer la aaiodt* i( luiin d 
« suivra .«i-(» port** ■. « chtrfr 
< stgntfta qua ia cord* doit. « 
're jouii a vidt las lutrti chi 
lifts rapra- imtint i« cata mr 
laquaiia it faut ippuyir pour o 
btimr ia nott" 

409 FOR *-l TO a FOR n»7 TO 0) 
STEP -1 PRINT RT 18. O, INK n , I « 
NEXT n NEXT a 
4 10 FOR v-1 TO P FOR (-1 To 12 
IF CIDMIvl TMCN PRINT RT V ( f 
"U.tl.flfl LET (l-ll.l 
418 IF Cl-31 THEN PRINT 



4 17 NEXT 



OO T 

then see 



rtlitz -ENTER- 



1000 DRTfl 1.2,2,1,3, .5,4, .38,0, . 
128,5, 100. 7. 50. 8,25, "5, 12.5. 10,6. 

.4 ,4 ,5,6,7,6, 

, is, ii, 17, le. 



TO 12i_ 

130 IF dtp 

1 LET P=p* 

131 INPUT 
133, Ir= r,ip 



1015 DRTR 5.3,4.0,4.2.4,3,3,0,3, 
2.2,0,2,1.2,3, 1,0, 1.1, 1,3 
1020 FOR qal TO 10 PERO i.b 



>S THEN LET n tpl 

GO TO 128 
hauteur tl-12) ".n t 
<e OR n Pi>i2 THEN 



135 LET s=ptl 

136 GO TJ 120 

137 PRINT RT 11, e. 



•.030 TOR 1 = 1 TO 12 
T v (ql 3U LET " ' 

1035 FOR q»l T 
T V <ql iv LET 

1036 NEXT q 
L040 RFTUPN 






D U -I 
EXT q 



Patois basic 



Le langage Basic utilise par le CASIO FX 702 R Pun des ordinateurs de 

pocheleplusperformant.enfailsurtoutunemachinedestlneeauxehj- 

rjiants et aux scientifiques, quoiqu'il constitue egalement un excellent 

moyen de debater dans I'intormatique 

Ce Basic est actuellement run des plus rapides existant sur ces peti tes 

machines Par rapport au Basic standard, il incorpore beaucoup de 

fonctions statistiques tres performantes et des operations passibles 

sur chaine de caracteres 

1] Fonctions statistiques : 

X. Y STAT - renlre un couple de donnees destinees a un iraitement 

statistique 

MXouMY - donne la moyenne des X ou des Y 

SXouSY -donne la somme des Xou des Y 

SX2 ou SY2 - donne la somme des X 2 ou des Y 2 

SXY -donne la somme des produitsXY 

CNT ■ indique le nombre de couples X, Y rentres 

SDX - donne lecart type des X 

SDY - donne lecart type des Y 

SDXN - donne I'ecart type standard des X 

SDYN ■ donne I'ecart type standard des Y 

SAC ■- remet a zero les variables statistiques. 

2) Fonctions scientifiques 

SGNX = SIGNX - donne +1 ou -1 selon le signe de X 

SQRX = X puissance 1/2 - donne la racine carree de X 

FRACA ™ A-INT(A) - donne la partie fractionnaire de A 

AHCX = arc cosinus hyperbolique - LOG (X-(-(X'2-1)'(1/2)) 

AHSX = arc sinus hyperbolique - LOG (X+(X'2+1)'(1/2)) 

AHTX = arc tangente hyperbolique = LOG ((1+X)/(1-X))/2 

HSNX - sinus hyperbolique = {EXPX-EXP(-X))/2 

HCSX - cosinus hyperbolique = (EXPX+F_XP(-X))/2 



HTNX - tangente hyperbolique - -2*EXP(-X)/(EXPX 

+EXP(-X))+1 
LOGX = logorithme decimal de X 
LNX — logonthmeneperien de X 
RND (X) arrondit a X Chiffres la partie fonctionnaire de X. A ne pas 

confondre avec RND (X) du Basic standard qui genere un 

nombre aleatoire compris entre Qet X 
DEG (DD, MM. SS) convertit les degres, minutes, secondes en degres 
decimaux 

OMS (DD DDDD) convertit les degres decimaux en degres. minutes, 
secondes 

RPC X.Y convertit des coordonnees cartesiennes (X.Y) en coordon- 
nees polaires (R.O) 

PRC R.O convertit des coordonnees polaires (RO) en coordonnees 
cartesiennes (X.Y) 
X! caicule la factorielle de X 

Toutes ces fonctions absentes du 8asic standard peuvent neanmoins 
etre programmees facilement 
3] Particulates de certaines instructions 

Le Basic CASIO possede quelques particulantes d'orthographe et de 
syntaxe qu'il est bon de connaitre pour la Iranscription des program- 
mes ecnts pour tourner suf le FX 702 P 
IF. ; = IF ..THEN 
IF... THEN= IF. THEN GOTO 
GSBX = G05UBX 
PRT = PRINT 
RET = RETURN 
INP = INPUT 

INP"....".X = PRINT".. ",:INPUTX 
PRT 555;A - PRINT USING fJSS.A 
PRT CRS 9,A - PRINT TAB (9) ;A 
WAIT X determine la duree de laffichage (=PAUSE) 
RAN, = RND(1) genere un nombre aleatoire entre Oet 1. A noterque 
I' instruction RANDOMIZE n'existe pas dans le Basic CASIO 
MID (X,Y) - MluS(S.X.Y) extrait Y caracteres a parlir de la position X 
dans la variable - chaine de caracteres $ 



KEX = INKEY$ 

■ = elevation a une puissance quelconque 

+— O-* different de 

£ — >=-- superieur ou egal a 

S = — < -* inferieur ou egal a 

E symbole de I'exposant en notation scientifique 

VAC efface toutes les memoires 

GSB52 ou GOTOS2 envoie au debut du programme ou du sous-pro- 
gramme dans la zone memoire numero 2. Rappe- 
lons que la memoire du Casio peut contenir 
10 programmes mdependants qui peuvent nean- 
moins s'appeler lun lautre. 

4) Instructions specifiques : 

Quelques instructions specifiques augmentent considerablement les 

possibihtes du 702 P Ce sonl celies qui pilotent le lecteur de cassette 

qui sont egalement programmables Ainsi est il possible de creer des 

fichiersde programmes etde donnees a accessequentielsur cassette 

magnetique 

PUT = sauvegarde des donnees sur bande magnetique 

GET — lecture de donnees enregistrees sur bande magnetique. 

LOAD £ 0"XX" charge dans le Casio zone ©le programme "XX" enregis- 

tre sur bande magnetique. 

5) Modes programmables 

II faut enfin rappeler que differents modes de fonctionnement peuvent 

aussi etre integres dans la prog ram mation 

MODE 4 - Les calculs dangles se font en degres 

MODE 5 * Les calculs d'angles se font en radians 

MODE 6 - Les calculs d'angles se font en grade 

MODE 7 - met en marche I'imphmante 

MODE 8 - arrete I'imprimante 

6) Conclusion 

Cette enumeration des differentes particularir.es du Basic Casio devrait 
permettre a chacun de recuperer pour son propre materiel, les pro- 
grammes qui fonctionnent sur cet ordinateur de poche. 

C LEGRAND 



WALKERS 



Ceux d'entre vous qui ont eu le plaisir devoir fa trilogie des 
"Star Wars" connaTssent bien les immenses quadripodes 
dont une scene de "LEmpire contre-attaque" nous mon- 
tre la formidable puissance. 
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315 IF INKEV*="1" 



THEN GOTO 36 t 
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Patrick MICHEL *2t 



Nous allons, sur notre ZX 81 equipe de I'extension 16K, creer un jeu 
retracant I'invasion de la planete de glace par les walkers de I'Empire. 
Le programme, simple, permet a tous d'en effectuer ('entree sans 
problems puisqu'il est redige entierement en basic, tout en restant 
essentiellement un jeu visuel. 

On remarqueraala lecturedu programme que lesligneslOa 80 nefont 
pas partie du jeu a proprement parler ; elles sont destinees a ranger 
drfferentes series de caracteres qui serviront a afficher les dessins du 
jeu : par exemple, a la ligne 202, nous visualisons le corps du walker 
en superposant quatre chalnes de caracteres sur quatre lignes. 
A noter egalement I'utilisation frequente de "FOR-NEXT" , ceci permet- 
tra de repeter une action et non une reflection. En effet le fait d'u tiliser 
for-next pour deplacer ou reimprimer divers graphiques accentue les 
effets visuels des instructions "PRINT", alors que repeter une analyse 
entrainerait un accablant ralentissement du jeu, ce dont le basic n'a en 
general pas besoin ! Ainsi, lors du tir sur les cibies. au lieu de deplacer 
par une boucle for-next, un missile et de controler a chaque fois s'il 
a percute ou non une cible, nous afficherons et nous effacerons une 
rafale a cote du laser, puis nous venfierons I'existence d'une cible aux 
coordonnees correspondent a la ligne de tir du laser (lignes 487 a 505). 
L'enlree du programme ne cree pas de drfficulte majeure, si ce nest en 
introduisan t les caracteres, de f aire attention a ne pas se tromperou en 
oublier. sans quoi les graphiques seraient sujets a deformations. 
Done, commence; par entrer les lignes 1 a 720 Precisons tout desuite 
les codes de certains caracteres utilises dans ces lignes : 
ligne 135 ; code : 4 (3 fois) 
ligne 220 ; code ; 128,0.0 
ligne 335 , code ; 9,9 (2 fois), 0,0 (2 fois) 
ligne 447 ; code . 136.0 (31 fois) 
ligne 488 ; code : 9.0 (2 fois) et 9 (2 fois), (4 fois) 
ligne 575 ; code : 128,0 

ligne 665 ; code : 2,10,9 (2 fois), 0,0,9 (3 fois), (2 fois), (3 fois) 
ligne 680 ; code : 134 151 et 27,136 27 et 1 
ligne 695 ; code : (3 fois) 

Tape? ensuite "RUN" et "NEWLINE" et introduisez les codes de la figu- 
re 1. Lorsque cette operation sera achevee, I'ecran devra avoir exac- 
tementraspectdelafigure1,cequivouspermettrade verifier les codes 
et eventuellement de les rectifier, s'il n'y en a pas trap, en utilisant une 
instruction "LET A$(n,m) = code" (1) ou "LET BS(n.m) = code" A partir 
de ce moment, n'ulilisez surtout plus "RUN" qui effacerait toutes vos 
variables AS et BS... 

Sauvez alors voire programme sur cassette et lancez le jeu en tapant 
"GOTO 90" (et newline) Par precaution vous pouvez effacer les lignes 

10 a 80 avant de lancer le jeu 

Lorsque le jeu est lance, vous vous ret rouvez sur la surface neigeusede 
la planete de glace, aux commandes d'un petit engin (le carre noir) 
avec la mission de retarder le plus possible I'invasion. En face de vous. 
en effet, s'avancent les armees de I'Empire 

Le jeu commence . des lors que vous tapez une louche quelconque 
apres I'affichage de "READY" Le but est d'alteindre le meilleur score 
possible. La destruction d'un walkermarque 250 points ; la destruction 
d'une cible (les carres gris) marque 50 points. 
Les touches 8 et 9 deplacent voire mobile et la louche declenche le 
laser- le choixde ces touches evitede regard er sans cessele clavier. Le 
laser est efficace sur les cibies mais. pas sur le walker i pour aneantir 
celui-cui faut passer sous sateteetempetrersespattes dans un cable 
Pour mener a bien cette operation, il vous faut respecter plusieurs 
regies ; vous ne pouvez descendre devant le walker que pendant la 
duree de ses deplacements. Lorsque vous etes au niveau des pattes, 
un trait apparait, e'est le cable, que vous pouvez derouler avec la 
louche 0. Immediatement apres avoir depasse la derniere patte, vous 
devez repasser le cable dans 1'autre sens, en delaissant la touche 
pour la touchel.etce. sans delais, car un petit walkerbipede vous atta- 
querait. Le Irajet de retour est marque parun cable plus epais. Lorsque 
vous atteignez le mur, vous devez larguerle cable en lachant la touche 
1 . le walker s'ecroule. Faites attention de ne pas percuter le mur ou de 
stopper trap tot. 
Encore quelques details pour le jeu ; 

11 est interessant dereperer que le walkera un instant d'hesitation entre 
le mouvement de sa premiere patte et le reste de sa marche, ce qui 
permet d'etre alerte a temps. 

Chaque walker abattu supprime definitivement une cible a concur- 
rence de trois. 

Au fur et a mesure qu'ils sonl detruits, les walkers deviennent me- 
fiants ... Par exemple vous poorrezdetruirelepremterdessadeuxieme 
marche, mais il faudra attendresa trois i erne a va nee e pourapprocher le 
deuxieme walker, meme si vous etes parvenu a descendre. 
Enfin, la partie s achieve quand une cibleou la tete du walkera depasse 
la limite des pointilles gris. ..La figure 2montrel'aspect general du|eu. a 
noter que les cibies se deplacent par 2 et que leurs bonds se font plus 
pressants a mesure que la partie s'engage. 
(1) d'apres les lignes 10 a 80. 
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390 IF f.INKEYJ{ J"!" HMD X=l> TH 
N GOTO MO 
405 GOTO 325 

4is print'at is + m,g, e>i;-i tie) 

425 PRINT AT 1S,G; B* *Sj ;fiT 19, G 



Bt (6) 



as, i 



,G; S* ( 



3F1 



445 FOR N=J TO 4 
447 PRINT PIT 17+1 

450 NEXT 

460 ■ — 

455 

470 LET U*Li- CU>3J 

475 IP W<rB THEN GO 

180 PRINT HT 0,S0; S 

482 GOTO 195 

4S7 FOR N^l TO 3 

488 PRINT HT ' 

""'b? NExf i' 
-92 IF Y=-. . 
494 PRINTOT ' 

TMEN~GOTO " 225 
. ..j1 TC - 
500 PRINT BT ' 
B(Y^2J ; " 

595 MsTXT ! 



nfrr v, 

492 IF "V=13 THEN GOTO 270 

494 PRINT PIT V,BCY/2>; 

495 IF PEEK IPEEK 16398t£56*PEE 
K, 15399J =0 THEN Gt 

493 FOR N=l TO 2 
51" " 

,B 



10 DIM I 



15 FOR 1=1 TO : 

IE FOR J=l TO , 

20 INPUT H 

S3 LET SJlI,J) 

25 PRINT h; ' ».'■ 

30 NEXT J 



510 LET 8!' 



565 LET G= 



=2S 



: (3J ; PIT 2i 



"FIN DU 1ER TPIBLERU - ' 
42 PAUSE 40 
45 DIM B£(10, 12) 
47 FOR 1=1 TO 10 



, RT 21,6+10, R5 (20) 



20,G+10;fi* 



65 LET B*(I,,J)=CMR( H 

70 PRINT M, ''■('■, 

72 NEXT J 

75 NEXT I 

77 PRINT "FIN DU SIEME TRBLEOU 



587 I 
590 1 



SINT RT '■ 
5INT 



'G-t9; r«(4.i 
597 PRINT RT V^Xj-'B'^RT Y-1,X; 

600 PRINT RT 18,G*4;t 



' PRINT PIT 10,2 



E BE WITH > 



"MhY THE FO«C 



125 LET U=6 

- — )R N = 1S 
1INT RT 

135 PR II 

■ 1-0 DIM 

15 DIH B(61 

,50 FOR M=- ' 

155 LET EC 

160 LET R(l.. 

165 PRINT RT i 



127 FOR_ 

132 I 

135 I 

140 DIM 1 

145 DIH L . 

150 FOR M-l TO 5 

155 LET EMM) i 

160 LET R(M) 

185 PRINT 

170 NEXT I 



,;«T 20.G+4, R*(ll) ;RT 
INKEY* = 

*17) ;Rt 21 
INT RT V.Xrl^RT -i 
INT RT 14,1 



602 LET' , _ 

605 PRINT RT 13 , G +9, R* (5) \ gT 19 

'.G + §',»% to: 



16, G; B»f3J 



17,G;B* ( 



),RT 20,G+4>'fi*(15) ;< 

laa^PRINT 'rt' Y..X; ■■■";RT Y-1,X, 

BBS PRINT RT 18 , G+9; R* (9> i RT 
,G.9,fl*(10) ;HT 20,G.-9..fl$(ii) .R 

si^+^fisiiai 

SS7 LET Y=Y+(XNKEY5="9") 
62B IF G<9 THEN GOTO 710 
_B30 PRINT RT ia,G*4;R*(17) ; RT 1 
a,G + 4j R« (IS) ; RT S0 , G+4; fl* ( 191 , RT 



SOLUTION 
DEL'HIPPOREBUS: 



10 FOR 1-1 TO 14 

20 READ X 

30 PRINT CHR*(X) 3 

40 NEXT I 

50 END 

60 DATA 86,73,68,69, 
79,32,67,65, 
83,83,69,84, 
B4.69 



Suite de la page 12 

+ ot*c A 

-b, -i ,-B.e.-e,2, 3, -e.2. -5, i 

61370 DATA 1. 6. 2i6, 3, 6. 2>4>3. 1.-8.-1,-6, 
-!, -6,-1,-5.-1 

2, -1,-3, 8, -fl, 1,-3 

61390 DATA -2, 1,0, 5, 2, 6, -4, -1,-5,-1, -5,- 

1,-5.0 

61480 QnTfl 3. 2, 2, 3. 3, -1.3, 2, 3,-1, 1,1, 3, 

61110 DflTn 9i, 2, -94, -2, 38,2. -101, -3, 101, 
I, -186, -1, 10?, 1, -IBB, -1, 8,- 

31128 □OTO 4, 12, 1,4, 5, 4, 1,5, A, 4, 5, 4, 4,?, 
10,8,5,3,4 

6i44e DTrrn s. 3,4,1, 12, I0,b,b, i,4,5,b,4,7 

,0,4,10.8.4,10, 10 

61+50 DflTR o,e, 4.4, 10,6,4.10,6,4,10,8,4, 

?, 4,4,8, 4 

(114?0 D«M 4,7,8,1,3,8,4,5,6,4,5,8,4,5,1 

B2010 REM W REDEF1MT10N5 ** 

62020 OHTfl 18.12,45.18.12.33,18,63 
620-lB Dflm 12,341,30.30.63.53,63,0 
62040 DATA 16,40, 16. 0,010,0.0 
62050 DATA 0, 63, 65, 63, 38, 30, 30,12 
62060 DOTO JB, 30, 31, 31, 31, 31, 30, 28 
62020 DATA 14,30,62.67,62,62,30,14 
52080 DATA 0,0,18,62, 56, 4B',0,0 
62080 DATA 0,0,3,7,31,3,0,8 
62100 DATA 12,12,4,4,0,0,0,0 
62110 DATA 0,0,0,0,8,6,12,12 
62120 DATA 0,8,7,31,63,62;62,60 
62130 DATA 16,32,0,0,0,0,0,0 
62140 DATA 60,62.62,63,31,7,0,0 

62160 DATA 2,1,0,0,0,0,0,0 
62120 DATA 0,0,56,62,63,31,31,15 
621B0 DATA 0,0,0,0,0.0,1,2 
62190 DATA 15,31,31,63,62.56,0,0 
62200 DATA 30.63,45,63, 3B, 18, 12, 12 
62210 DATA 4,31,14,31,4,21,31,14 ■ 



204 GOSUB 565 

205 FOR F=l TO INT IRND*W 



R*(15) >RT 



638 LET ; 



225 IF Y>13 THEN GOTO 

230 IF INKEY ' "- 

2 "Hi NEXT N 

3*5 FOR N=l TO 2 

250 LET M=INT (RND 

252 PRINT RT R ■"' 

£55 IF 8 1M) " ~ 



THEN GOTO 485 



640 PRINT 1 

645 NEXt'i 

650 IFYl.. . 

6S5 IF Y>=16 THEN RETURN 
660 FOR N=l TF - 
PRINT RT 
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1 1 


I650F 




3 350F 


1 1 


4.250 F 


1 1 


1.060F 
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500 F 
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310F 


n 


370 F 


1 1 


140 F 


1 1 


I35F 




1I5F 




235 f 


i ' 


1.250F 
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5.900 F 
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102F 


n 


100F 


1 1 


100F 




198 F 


1 1 


184 F 
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295 F 


a 



MATERELS THOMSON TO 7 

Unite centrale 
Codeur S£CAM 
Lecteur enregistreur 

Extension memoire 1 6k 

Controleur com 

Son etjeux 

Memo Basic 

tmpftmante ihcrmrque 

Cordon imprimaiite themuque 

liiij.inrn.inie Impact 

Cordon rmprimante impact 

Contr lect disquette 

Lett disquette 

Rouleau papier thermique 

LogicieS Answare 

Budget familial 

Car net d'adresses 

Gerez votre bibliotheque 

Gerez vos riches 



Prix TTC 




2.480 F 


1 1 


600 F 


: i 


800 F 


1 1 


750 F 


i i 


850 F 


i 1 


6O0F 


1 1 


480 F 


( i 


2 50OF 


i i 


290 F 


. 1 


2.50OF 


n 


290 F 


1 1 


3.800 F 


1 1 


2.600 F 


1 ! 


75 F 


i.j 


450 F 


n 


480 F 


1 1 


490 F 


■ i 


525 F 


Li 



BON DE COMMANDE 

TARIFS AU 17/2/84 



Nom 

Pn*nom 
Adresse 

Cade Postal 
VFlle 



Ces prtx sant li 

Prodults disponibfes dans la limtte de nos stocks 

en magasin. 

Participation sux frais de port et tfexpedition en 

retomrnande pour les logleiels : + 30 F. 

Promotion complete ; uansporteur I 20 kilos + 185 F. 

LAREGLEACALOJL: 

6S/67. bd Saint Germain, 7S005 PARIS 

Tel : 325.68.88 - reiex : ETOAV 220064F/I303 RAC 



dicattfs et peuvent etre modifies 



zx spectrum 



Systeme personnel HEWLETT-PACKARD 41 



HP 4IC + module Quadruple HP 82 I rti 

Promotion 

Lecteurs de carte HP 82 104 

Imprimanw HP 82 1 43 

Let teur de cassettes digiraies 

Module HP IL HP 82160 

Module X lontraons HP 82180 

Promotion 

Module matttemaHqueS 3041-15010 

Barter* HP 41 HP 82120 

Chargeur HP 4 1 HP 82066B 

Livrew d'appfication |28 litres) 

Jeu de 4 grilles designation HP 82152 

Clavier a rnembriine HP 8?;i)0 

Produits compatibles HP 41 

Port expander 8 entrees et sorties 

Table tracanie 4 couieurs tandy 

interface HP II 

Uvres 

l-rr njf.jnirne HP 41 

Au Fond de la HP 41 

A u lour de la boucle 

HP 41 extended function made easy 

Calculator tips and routines (en anglais} 

The HP (l. system an introductory Guide 

to rhe Hewlett Packard interface loop 



GAMME SPECTRUM 

Spectrum 48 K PAL 
Modulateur now et blanc 
Adaptateur POritel 
Imprunante pour 2X81 
ei SPECTRUM aKacom 32 

LogicHs 
Simul.neurdevOl 

Othello 
Chess 



I 965 F 
190 F 
360 F 



95 F 


n 


75 F 


I i 


1 !5F 




S4F 


I I 


54 F 


i i 


160F 


u 



;ini=l= 
ZX8I 



iir~ 



Extension 16 K 



Simulation de vol 
Gestion compte bancaire 
Vucak 



580 F 


n 




360 F 


u 




95 F 






95 F 






95 F 






1 10F 






ItOF 






150 F 
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95 F 
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PROMOTION EDUCATION 
JUSOLTAU 31/3/84 



• 1 disk II* 7 avec controleur 

• 1 moniteur II 

• 1 logidel apple logo standard 

Loqjiciefe APPLE ir n 



Apple logo standard 
Apple supetpilot 
Logiciei Pascal II 

Logicteb edkieb Jur disquettes 
pour APPLE II' et APPLE U 48 K 



Maths 1: 

logatWvnes pi r^ponentie 

Maths2: 

Suites et integrates 

Maths 3: 

Trioonomelrie 

Nombres complexes 
Physique 1 1 



ELM-LOGO, un langage fait pour 
apprendre en s'amusant frmformatique, 
la kjgigue i 



lathematiques) 



Prix TTC 




1600F 


1 i 


I.S57F 


1 1 


I.877F 


U 



PORTE PAROLE 

Votre mitro-ordmateur peui parler 

Etoutez' Line von (Lure et ann ulei- 

vous parte en francais 

Essayez-le avec EDI-LOGO et bientOt de 

nombreux autres programmes (les 

paroles sont stockees sur vos disquettes 

EdicelJ 



1490F 


D 


PnxTTC 




1.395 F 


□ 



Logiciei VIF1 pour APPLE I 

L organisateur 



etir 



Physique 2 : 

Circuits osci Hants [partition 

janvier 1984 1 

EDI-LOGO 

EDI-LOGO, un langage ideal pour de 
jeunes enfants |mPme sils ne saveni pa 
encore lire grace a la taite Porte-Parole 
qui lait parler l'oidinateut| 
Le fameux langage LOGO, en francais, 
dans la version ongmale developpee 
a f Unrversite americaine MIT 



PnxTTC 
295 F 
295 F 


□ 

11 


295 F 

295 F 
295 F 

295 F 
Prix TTC 


II 
□ 

n 

Q 



2.195 F 
I 695 F 
1695F 
2 500 F 



LocigteEs C1EL BLEU pour APPLE II et IT 
sur disquettes 

Le Basic explique 
Au cceur du Basic 
Comptaddition 
Rendezvous 

Controleur arnen 
Fractions 
Oecimales 
Arithnieticiue 
Savoir comprer 

Perception 

Cherchez 13 difference 

Augmentez voire votdbularre I 

Augrrrentez voire vocabularre II 

Suite denomores 

Concentration 

Pareil ou different 

Mots caches 

Mots caches geographic 

Mots eroises et mots secrets 



* 



Texas Instruments 




PEniPHERIOUES 

Les periphenques foncOonnent 
uniquement en etant mtegres dans 
le systeme d'expansion p^riphfrique 
PHP 1200 

• Carte interface RS232 une sortie 
parallele et une sortie sftte 



• Carte d extension mev |HAM| 32 K 
i Carte P-Code permet lexecutiondt 
programmes ecnts avec le systeme P 



Prix TTC 




1.130F 


I 1 


990 F 


I.J 


2.200 F 


IJ 



ORGANISATION 



PROGRAMMATION 

• Editor assembler 
Extended basic 

• Mini memory 

• Programming aids III 

• Terminal Emulator II 

AUTOES tflfldU 



• Dragon Savant 

• Early Reading 

; ■ Jeux d'Entreprise 

• Meteor multiplication 

• Mission moms 



CONSOLES ET ACCESSORIES 



• Modulateur PAL -UHF 

• Modulateur SECAM adaptable iur 
tout teieviseur francais 

A Manuel T7 99/4 A 

• Manuel assemb'eur 

• cable liaison magneto-cassettes 

• Synthetlseur de parole 
"Solid State SpciWi IM 
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